Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Start.Click
 
CmdLog.Text &= ("\usr\Anonymous ~#~ > " & CmdLine.Text & vbCrLf)
 
If CmdLine.Text = ("login") Then
CmdLog.Text = ("Dieses System verfügt über keine Loginfunktion.")
Else
CmdLog.Text &= ("Unbekannter Befehl. Tippe 'Hilfe' um ins Hilfe Menue zu" & _
  "gelangen.") & vbCrLf
End If
 
If CmdLine.Text = ("help") Then
CmdLog.Text = ("Die Hilfedatei wird geladen..." & vbCrLf)
Else
CmdLog.Text &= ("Unbekannter Befehl. Tippe 'Hilfe' um ins Hilfe Menue zu" & _
  "gelangen.") & vbCrLf
End If
 
 
End Sub