请问以下函数地址作为函数参数的代码为何总不能通过编译？

Dim x As Integer, y As Integer

Public Function a(x As Integer) As Integer
    a = x
End Function

Public Function b(y As Integer) As Integer
    b = y
End Function

Public Function c(ByVal a As Integer, ByVal b As Integer) As Integer
    c = a + b
End Function

Private Sub Command1_Click()
    Label1.Caption = c(AddressOf a, AddressOf b)
End Sub

Private Sub Form_Load()
    x = 3
    y = 6
End Sub

请高手指点指点……

你这个无参数代码我一早就做成了，你的回复不是我要的答案，我要的是有参数的函数地址作为函数参数--->用作回调函数之用的！

你的回复并没有出现函数地址作为参数来传递到另一个函数的情况（请你审题后再作答吧！）

感谢你的回复，但还遗漏了最后一个问题，就是为何输出结果只是地址相加，而不是地址的值相加？

'module1中代码
Function a() As String
a = Form1.x
End Function
Function b() As String
b = Form1.y
End Function

'form1中代码
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public x As String, y As String
Public Function c(ByVal aCopy As Long, ByVal bCopy As Long) As String
    c = CallWindowProc(aCopy, 0, 0, 0, 0) & vbCrLf & CallWindowProc(bCopy, 0, 0, 0, 0)
End Function

Private Sub Command1_Click()
    Label1.Caption = c(AddressOf a, AddressOf b)
End Sub

Private Sub Form_Load()
    x = "Very"
    y = "Good"
End Sub
为何运行后会在标签中显示结果只有两个地址值而不是两个字符串的输出？