Public Class alpha

    public data As Integer 

End Class 

​

Public Structure beta

    public data As Integer 

End Structure 

​

Public Module Program

    Public Sub A_add(Input As alpha)

        Input.data += 1

        System.Console.WriteLine(Input.data)

    End Sub

    Public Sub B_add(Input As beta)

        Input.data += 1

        System.Console.WriteLine(Input.data)

    End Sub

​

    Public Sub Main()

        Dim A As New alpha

        A_add(A)

        A_add(A)

        A_add(A)

​

        System.Console.WriteLine()

        Dim B As New beta

        B_add(B)

        B_add(B)

        B_add(B)

    End Sub

End Module