Public Structure Time
Public Hour As Integer
Public Minute As Integer
Public Second As Integer
End Structure
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim T As Time
T.Hour = 12
T.Minute = 13
T.Second = 14
MsgBox(T.Hour)
MsgBox(T.Minute)
MsgBox(T.Second)
End Sub