Private Sub mnuNeu_Click()
 
    Dim objForm As frmMain
 
    Set objForm = New frmMain
 
    frmMain.Show
 
End Sub

corsa(r)

"Zwei Dinge sind unendlich: Das Universum und die
menschliche Dummheit. Aber bei dem Universum
bin ich mir noch nicht ganz sicher."
(Albert Einstein)