Sub AddOne(ByRef viMyValue As Integer)
        viMyValue += 1
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim liValue As Integer = 1, liExpected As Integer = 1
        MsgBox(liValue & "=" & liExpected)
        liExpected += 1
        AddOne(liValue)
        MsgBox(liValue & "=" & liExpected)
        liExpected += 1
        AddOne((liValue))
        MsgBox(liValue & "=" & liExpected)
    End Sub