具体代码如下：
Public Class Form1
Sub aa(ByVal x As Integer, ByVal y As Integer, ByRef f As Boolean)
If x Mod y = 0 Then
f = True
Else
f = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b As Integer, c As Integer【c定义为integer，但在子过程中原要求此位置是boolean值】
a = 4
b = 2
Call aa(a, b, c)【使用自动窗口发现，经过这一步骤，c由0变为-1，这是为什么？】
If c = True Then
Label1.Text = 1
Else
Label1.Text = 2
End If
End Sub
End Class
真心不知怎么回事，求大神指点！！

vb中真为-1