Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As Integer = 0 Dim b As Integer = 0 Call subA(a) Call subB(b) Label1.Text = "a=" & a & " b=" & b End Sub Private Sub subA(ByVal argA As Integer) argA = 1 End Sub Private Sub subB(ByRef argA As Integer) argA = 2 End Sub