Imports System
Public Class Time
' Private variables
Private Year As Integer
Private Month As Integer
Private Hour As Integer
Private Minute As Integer
Private Second As Integer
' Public methods
Public Sub DisplayCurrentTime( )
Console.WriteLine("stub for DisplayCurrentTime")
End Sub 'DisplayCurrentTime
End Class 'Time
Module Module1
Sub Main( )
Dim timeObject As New Time( )
timeObject.DisplayCurrentTime( )
End Sub
End Module
|