投稿者 無知厚顔  (社会人) 投稿日時 2010/6/30 22:12:38
何事も自分で試さない人は、進歩はおぼつかない。しかし、出血大サービスしましょう。
Private Sub Button1_Click(ByVal sender As System.ObjectByVal 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

もし、お尋ねの主旨と違っていたら御免なさい。(赤っ恥)