Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim timeObject As New Time(2005, 3, 25, 9, 35, 20)
timeObject.DisplayCurrentTime( )
End Sub
End Class
Public Class Time
Private Year As Integer
Private Month As Integer
Private Day As Integer
Private Hour As Integer
Private Minute As Integer
Private Second As Integer
' Public methods
Public Sub DisplayCurrentTime( )
System.Console.WriteLine("{0}/{1}/{2} {3}:{4}:{5}", _
Month, Day, Year, Hour, Minute, Second)
End Sub 'DisplayCurrentTime
' Constructor
Public Sub New(ByVal theYear As Integer, ByVal theMonth As Integer, _
ByVal theDate As Integer, ByVal theHour As Integer, _
ByVal theMinute As Integer, ByVal theSecond As Integer)
Year = theYear
Month = theMonth
Day = theDate
Hour = theHour
Minute = theMinute
Second = theSecond
End Sub
End Class 'Time