操作符AddressOf 使用无效 问题

Question

运行后提示  操作符AddressOf 使用无效 问题   这个是为什么 能麻烦那位热心人帮我改一下嘛？
Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim RetVal As Long
Dim dd As String * 255
Dim a As Stringa = "123"RetVal = GetWindowText(hwnd, dd, 255)
If c = InStr(dd, a) Then
Text1.Text = dd
ElseEnd If
End Function
--------------------------------------------------
Private Sub Command2_Click()     Dim l As Long     l = EnumWindows(AddressOf EnumWindowsProc, 0)    End Sub

Answer 1

须把Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long 
Dim RetVal As Long 
Dim dd As String * 255 
Dim a As String a = "123" RetVal = GetWindowText(hwnd, dd, 255) 
If c = InStr(dd, a) Then 
Text1.Text = dd 
Else End If 
End Function 
放到独立的Module当中

Answer 2

Project(工程)菜单->Add Module(添加模块)->New(新建)
然后把那段代码剪节到新建的模块单元当中去。