Private Sub Form_DblClick()
End
End Sub

Private Sub Form_Load()
Label1.Caption = Time
End Sub

Private Sub Label1_DblClick()
End
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub

Bu kodları nod parda kaydedin!..