Imports System
Public Structure user
Public FirstName As String
Public LastName As String
Public City As String
Public Paid As Boolean
End Structure
Public Class Program
Private Shared Function SetUserData() As user
Dim u As user
u.FirstName = "Darth"
u.LastName = "Vader"
u.City = "NY"
u.Paid = True
Return u
End Function
Private Shared Sub PrintUserData(ByVal u As user)
Console.WriteLine(u.FirstName)
Console.WriteLine(u.LastName)
Console.WriteLine(u.City)
Console.WriteLine(u.Paid)
End Sub
Public Shared Sub Main(ByVal args As String())
Dim u As user = SetUserData()
PrintUserData(u)
End Sub
End Class
' run:
'
' Darth
' Vader
' NY
' True
'
