If App.startMode = vbSModeStandalone And Not App.PrevInstance Then
       frmMain.show
else 
        msg = MsgBox("Eine Instanz der Anwendung läuft bereits.", vbExclamation _
          + vbOKOnly + vbApplicationModal, "Fehler")
end if