Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

Use Me to reference myself

Option Strict On  Imports System  Public Class Time     Private Second As Integer     Public Sub DisplayCurrentTime( )        System.Console.WriteLine(Second)     End Sub     Public Sub New(ByVal dt As System.DateTime)        Second = dt.Second     End Sub      Public Sub New(ByVal Second As Integer)        Me.Second = Second     End Sub  End Class   Module Module1     Sub Main( )        Dim currentTime as System.DateTime = System.DateTime.Now        Dim time1 As New Time(currentTime)        time1.DisplayCurrentTime( )        Dim time2 As New Time(30)        time2.DisplayCurrentTime( )     End Sub  End Module