Imports System
Public Class CTime
Private seconds As Integer
Private minutes As Integer
Private hours As Integer
Public Sub New()
End Sub
Public Sub New(ByVal hours As Integer, ByVal minutes As Integer, ByVal seconds As Integer)
Me.hours = hours
Me.minutes = minutes
Me.seconds = seconds
End Sub
Public Shared Sub Main(ByVal args As String())
Dim tm As CTime = New CTime(7, 11, 25)
Console.Write("{0:D}:{1:D}:{2:D}", tm.hours, tm.minutes, tm.seconds)
End Sub
End Class
' run:
'
' 7:11:25
'