Select Case Left(Command, 2)
      Case "/a"
        MsgBox "Kennwort ändern gibt es hier nicht*ggg*!!!"
        End
      Case "/c"
        If App.PrevInstance Then
            End
        End If
        frmConfig.Show
      Case "/p"
        End
      Case "/s"
        If App.PrevInstance Then
            End
        End If
        frmScreensaver.Show
  End Select

[u]Mein System online

MfG ICE-MAN