Class

Module VBModule
 Public Class Employee
 Dim name As String
 Dim age As Integer
 Public Sub New(ByVal n As String,ByVal a As Integer)
 name=n
 age=a
 End Sub
 Public Sub Display()
 Console.WriteLine("Name="& name & Space(2) &"Age="& age)
 Console.ReadLine()
 End Sub
 End Class
    Sub Main()
     Dim ob1 As Employee=New Employee("Rajat",20)
     ob1.Display()
    End Sub
  
End Module