Visual Basic - Saben usar FindWindow y EnableWindow

Hola quisiera saber como utilizar estas funciones de la API. Tengo un ejemplo pero no se implementarlo. A continuación os paso el codigo.
¿Como le paso los valores?

Form1
Function DisWin(WindowName$, EnabOrDisab&)
Dim lFndWnd As Long
Dim lDisEnWnd As Long

lFndWnd = FindWindow(vbNullString, WindowName$)
lDisEnWnd = EnableWindow(lFndWnd, ByVal EnabOrDisab&)

End Function

Modulo

#If Win32 Then
Declare Function EnableWindow& Lib "user32" (ByVal hWnd As Long, ByVal fEnable As Long)
Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
#Else
Declare Function EnableWindow% Lib "user" (ByVal hWnd As Integer, ByVal aBOOL As Integer)
Declare Function FindWindow% Lib "user" (ByVal lpClassName As Any, ByVal lpWindowName As Any)
#End If 'WIN32