Init Member Variables through Constructor
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