Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim class1 As New class1
        Dim a As Integer = 2
        Dim b As Integer = 5
        class1.out(a, b)
        MsgBox(a)
        MsgBox(b)
    End Sub

Public Class class1
    Public Sub out(ByVal a As Integer, ByVal b As Integer)
        a =a^2
        b =b^2
    End Sub
End Class
で、a,bは2と5のままで、a=4やb=25になりません。
何かが足りないのでしょうか、VB2013です。