Private Sub sc_On_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles sc_On.Click
        If modelsYesNo.Checked = False And soundYesNo.Checked = False And _
        spritesYesNo.Checked = False Then
            sc_statusBar.Text = "Es ist kein Ordner zum umbenennen angekreuzt!"
        Else
            sc_statusBar.Text = "Ausgewählte Ordner umbenannt! ..trotzdem HF ^^"
        End If
        If modelsYesNo.Checked = True And Directory.Exists("models") Then
            Directory.Move("models", "models_")
        End If
        If soundYesNo.Checked = True And Directory.Exists("sound") Then
            Directory.Move("sound", "sound_")
        End If
        If spritesYesNo.Checked = True And Directory.Exists("sprites") Then
            Directory.Move("sprites", "sprites_")
        End If
    End Sub