Class stud
Dim id As String
ReadOnly Property IDNO()
Get
Return id
End Get
End Property
Sub New()
id = "qr78"
End Sub
Sub New(ByVal ids As String)
id = ids
End Sub
End Class
Module Module1

Sub Main()
Dim obj As New stud
Console.WriteLine("ID No is : " & obj.IDNO)
obj = New stud("sfg34")
Console.WriteLine("ID No is : " & obj.IDNO)
End Sub

End Module

Job Openings

__________________
cegonsoft.co.in