Class Module VB.Net Tutorial

Structure CheckRecord
    Dim intCheckNumber As Integer
    Dim dteCheckDate As Date
    Dim sngCheckAmount As Single
    Dim strCheckPaidTo As String
End Structure
public class Test
   public Shared Sub Main
        Dim udtCheck As CheckRecord
        'Add data to the structure.
        udtCheck.intCheckNumber = 275
        udtCheck.dteCheckDate = #9/12/2001#
        udtCheck.sngCheckAmount = 104.25
        udtCheck.strCheckPaidTo = "Gas Co."
        Console.WriteLine("CHECK INFORMATION")
        Console.WriteLine("Number: " & udtCheck.intCheckNumber)
        Console.WriteLine("Date: " & udtCheck.dteCheckDate)
        Console.WriteLine("Amount: " & udtCheck.sngCheckAmount)
        Console.WriteLine("Paid To: " & udtCheck.strCheckPaidTo)
   End Sub
End class
CHECK INFORMATION
Number: 275
Date: 12/09/2001
Amount: 104.25
Paid To: Gas Co.