Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Caption = Time() End Sub Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Caption = Time() End Sub