Public Function GetFreeForm() As Integer
Dim n As Integer
 
For n = 0 To MyForms.Count
    If MyForms.Item(n) Is Nothing Then
        GetFreeForm = n
        Exit Function
    End If
Next n
 
'Wenn kein freier Platz gefunden wurde...
GetFreeForm = MyForms.Count + 1
 
End Function