Public Sub KindFenster()
intCount += 1
 
Dim frm(intCount) As Form
frm(intCount) = New Form 
 
With frm(intCount)
.MdiParent = Me
.MaximumSize = New Size (x, y)
.MinimumSize = New Size (x, y)
.MinimizeBox = False
.MaximizeBox = False
.ShowInTaskbar = False
.ShowIcon = False
.Text = "Fenster " & intCount
.Show()
End With
End Sub