Private Sub cmd_Maker_Click()
    frm_Maker.Visible = True
    frm_Optionen.Visible = False
End Sub
Private Sub cmd_Optionen_Click()
    frm_Optionen.Visible = True
    frm_Maker.Visible = False
End Sub
Private Sub cmd_Ende_Click()
    End
End Sub
Private Sub cmd_Eintragen2k_Click()
    Pfadeingabe.Show
    Pfadeingabe.lbl_Makerwahl.Caption = 1
    Pfadeingabe.lbl_Maker.Caption = "RPG-Maker 2000:"
End Sub
Private Sub cmd_Eintragen2k3_Click()
    Pfadeingabe.Show
    Pfadeingabe.lbl_Makerwahl.Caption = 2
    Pfadeingabe.lbl_Maker.Caption = "RPG-Maker 2003:"
End Sub
Private Sub cmd_EintragenXP_Click()
    Pfadeingabe.Show
    Pfadeingabe.lbl_Makerwahl.Caption = 3
    Pfadeingabe.lbl_Maker.Caption = "RPG-Maker XP:"
End Sub
Private Sub cmd_EintragenVX_Click()
    Pfadeingabe.Show
    Pfadeingabe.lbl_Makerwahl.Caption = 4
    Pfadeingabe.lbl_Maker.Caption = "RPG-Maker VX:"
End Sub
Private Sub cmd_Loeschen2k_Click()
    Antwort2k = MsgBox("Wirklich entfernen?", vbYesNo + vbQuestion + _
      vbDefaultButton2, "Pfad entfernen")
    If (Antwort2k = 6) Then
        lbl_Pfad2k = ""
    End If
End Sub
Private Sub cmd_Loeschen2k3_Click()
    Antwort2k = MsgBox("Wirklich entfernen?", vbYesNo + vbQuestion + _
      vbDefaultButton2, "Pfad entfernen")
    If (Antwort2k = 6) Then
        lbl_Pfad2k3 = ""
    End If
End Sub
Private Sub cmd_LoeschenXP_Click()
    AntwortXP = MsgBox("Wirklich entfernen?", vbYesNo + vbQuestion + _
      vbDefaultButton2, "Pfad entfernen")
    If (AntwortXP = 6) Then
        lbl_PfadXP = ""
    End If
End Sub
Private Sub cmd_LoeschenVX_Click()
    AntwortVX = MsgBox("Wirklich entfernen?", vbYesNo + vbQuestion + _
      vbDefaultButton2, "Pfad entfernen")
    If (AntwortVX = 6) Then
        lbl_PfadVX = ""
    End If
End Sub
 
Private Sub cmd_Starten2k_Click()
    If lbl_Pfad2k.Caption = "" Then
        MsgBox "Exe nicht gefunden!", vbCritical + vbOKOnly, "Fehler"
    Else
        Dim TaskID As Long
        Dim RPG2K As String
        RPG2K = lbl_Pfad2k.Caption
        TaskID = Shell(RPG2K, vbNormalFocus)
    End If
End Sub
 
Private Sub cmd_starten2k3_Click()
    If lbl_Pfad2k3.Caption = "" Then
        MsgBox "Exe nicht gefunden!", vbCritical + vbOKOnly, "Fehler"
    Else
        Dim TaskID As Long
        Dim RPG2K3 As String
        RPG2K3 = lbl_Pfad2k3.Caption
        TaskID = Shell(RPG2K3, vbNormalFocus)
    End If
End Sub
 
Private Sub cmd_StartenVX_Click()
    If lbl_PfadVX.Caption = "" Then
        MsgBox "Exe nicht gefunden!", vbCritical + vbOKOnly, "Fehler"
    Else
        Dim TaskID As Long
        Dim RPGVX As String
        RPGVX = lbl_PfadVX.Caption
        TaskID = Shell(RPGVX, vbNormalFocus)
    End If
End Sub
 
Private Sub cmd_StartenXP_Click()
    If lbl_PfadXP.Caption = "" Then
        MsgBox "Exe nicht gefunden!", vbCritical + vbOKOnly, "Fehler"
    Else
        Dim TaskID As Long
        Dim RPGXP As String
        RPGXP = lbl_PfadXP.Caption
        TaskID = Shell(RPGXP, vbNormalFocus)
    End If
End Sub

Private Sub cmd_Bestaetigen_Click()
    If lbl_Makerwahl = "1" Then
        Pfad = Dir1.Path & "\" & "RPG2000.exe"
        Menü.lbl_Pfad2k.Caption = Pfad
    End If
    If lbl_Makerwahl = "2" Then
        Pfad = Dir1.Path & "\" & "RPG2003.exe"
        Menü.lbl_Pfad2k3.Caption = Pfad
    End If
    If lbl_Makerwahl = "3" Then
        Pfad = Dir1.Path & "\" & "RPGXP.exe"
        Menü.lbl_PfadXP.Caption = Pfad
    End If
    If lbl_Makerwahl = "4" Then
        Pfad = Dir1.Path & "\" & "RPGVX.exe"
        Menü.lbl_PfadVX.Caption = Pfad
    End If
    Unload Me
End Sub
 
Private Sub cmd_Zurueck_Click()
    Unload Me
End Sub
 
Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
    OrdnerPfad = "C:\Programme"
    Pfad = OrdnerPfad & "\" & "RPG2003.exe"
If Dir$(Pfad) = "" Then
  MsgBox "Error", vbCritical + vbOKOnly
Else
 
End If
End Sub
 
'Private Sub Dir1_Change()
'File1.Path = Dir1.Path
'End Sub