Dim NewForm As New frmChild
 
NumForms = NumForms +1
 
With NewForm
  .Tag = "Form" & CStr(NumForms)
  .Show
End With
 
colForms.Add NewDok, NewForm.Tag
 
MenuItem.Key = NewForm.Tag

Dim f As Form
 
For Each f In colForms
  If f.Tag = MenuItem.Key Then
    f.SetFocus
    Exit For
  End If
Next f

Gruß
Marcus