Private Sub cmdProjekte_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdProjekte.Click
    'Deklaration der Variablen MCProjekte als "frmProjekte"
    Dim MCProjekte As New frmProjekte()
 
    'Überprüfen ob MCPRojekte <> Nothing
    If Not MCProjekte Is Nothing Then
        'Wenn ja, dann nur aktivieren
        MCProjekte.BringToFront()
        Return
    End If
 
    'Wenn nein, dann MCProjekte öffnen
    MCProjekte = New frmProjekte()
    MCProjekte.MdiParent = Me
    MCProjekte.Show()
 
End Sub