<code>Private Sub Form_Load()
  <font color=green>' 1. Button aktiv, 2. und 3. Button inaktiv</font>
  Command1.Enabled = True
  Command2.Enabled = False
  Command3.Enabled = False
End Sub
 
Private Sub Command1_Click()
  <font color=green>' 1. Programm starten</font>
  Shell "c:programm1.exe"
  Command1.Enabled = False
  Command2.Enabled = True
End Sub
 
Private Sub Command2_Click()
  <font color=green>' 2. Programm starten</font>
  Shell "c:programm2.exe"
  Command2.Enabled = False
  Command3.Enabled = True
End Sub
 
Private Sub Command3_Click()
  <font color=green>' 3. Programm starten</font>
  Shell "c:programm3.exe"
 
  <font color=green>' Form schliessen</font>
  Unload Me
End Sub</code>