Private Sub Button1_Click()
Dim C As New Class1
C.Time_Show()
End Sub