time evaluation

How can I get the current minute from the operating system?

Private Sub Command1_Click()
lable1.Caption = Format(Now(), "hh:mm")
End Sub

label1 = time