MDI Child Form nur einmal öffnen

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Dim kForm As Form
Dim kformExistiert As Boolean = False
For Each kForm In Me.MdiChildren
	If Not TypeName(kForm) = "MDIForm" Then
		If kForm.Name = "frmKunden" Then
			'' Es gibt mind. 1 geöffnetes Browser-Fenster
			kForm.Activate()
			kformExistiert = True
		End If
	End If
Next
If Not kformExistiert Then
	kForm = New frmKunden
	kForm.MdiParent = Me
	kForm.Show()
End If