Public Function GetForm(ByVal hWnd As Long) As Form
  Dim F As Form
 
  <font color=green>' Standard-Rückgabewert</font>
  Set GetForm = Nothing
 
  For Each F In Forms
    If F.hWnd = hWnd Then
      <font color=green>' Form gefunden!</font>
      Set GetForm = F
      Exit Function
    End If
  Next
End Function

Dim F As Form
Set F = GetForm(Me.hWnd)
If Not F Is Nothing Then
  MsgBox F.Name
End If