Private Declare Function lstrcat Lib "kernel32" Alias _
  "lstrcatA" (ByVal lpStr1 As String, _
  ByVal lpStr2 As String) As Long
 
Private Declare Function FindWindow Lib "user32" Alias _
  "FindWindowA" (ByVal lpClassname As String, _
  ByVal lpWindowName As String) As Long
 
 
Private Function hwnd() As Long
 
    hwnd = FindWindow(vbNullChar, lstrcat(Me.Caption, ""))
 
    'funktioniert auch nicht
    'hwnd = FindWindow(vbNullChar, Me.Caption)
 
End Function

Viel Spass,
R@lf