Private Sub chkConsole_Click()
  If chkConsole.Value <> 0 Then
    commands = commands & " -console"
    txtCommands.Text = commands
  Else
    commands = Replace(commands, " -console", "")
    txtCommands.Text = commands
  End If
 
End Sub
 
Private Sub chkD3d_Click()
  If chkConsole.Value <> 0 Then
    commands = commands & " -d3d "
    txtCommands.Text = commands
  Else
    commands = Replace(commands, " -d3d ", "")
    txtCommands.Text = commands
  End If
End Sub

Probleme oder Fragen mit und ?ber den/m PC? Klappt was nicht?

......:::::X------www.insiders-xp.de------X:::::........