Public Class GlavForm
Private _form As Object

Private Property Form(i As Integer) As Object
Get
Return _form
End Get
Set(value As Object)
_form = value
End Set
End Property

Function FormLoaderName(FormName As String) As Boolean
Dim i As Integer, frname As String
frname = LCase(FormName)
FormLoaderName = False
For i = 0 To Form(i) Step -1
If LCase(Form(i)) = frname Then
FormLoaderName = True
Exit Function
End If
Next
End Function

Private Sub ДобавитьТаблицуToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ДобавитьТаблтцуToolStripMenuItem.Click
If FormLoaderName("FrmNewDB") = True Then

End If
End Sub

End Class