Imports System
Imports System.IO
Imports System.Data.OleDb
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.TaskbarClock
Imports System.Collections
Public Class Form1
    Dim dateiauswahl As String, modus As String, scheck1 As String, scheck2 As String, scheck3 As String, scheck4 As String
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim ofd As New OpenFileDialog
        Location = New Point(0, 0)
        CurDir = My.Application.Info.DirectoryPath
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            scheck1 = "check1 "
        Else
            scheck1 = ""
        End If
        Text13.Text = scheck1 + scheck2 + scheck3 + scheck4
        wahl = 1
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked Then
            scheck2 = "check2 "
        Else
            scheck2 = ""
        End If
        Text13.Text = scheck1 + scheck2 + scheck3 + scheck4
        Me.Refresh()
        wahl = 2
    End Sub
    Private Sub CheckBox3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked Then
            scheck3 = "check 3"
        Else
            scheck3 = ""
        End If
        Text13.Text = scheck1 + scheck2 + scheck3 + scheck4
        wahl = 3
    End Sub
    Private Sub CheckBox4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked Then
            scheck4 = "check4 "
        Else
            scheck4 = ""
        End If
        Text13.Text = scheck1 + scheck2 + scheck3 + scheck4
        wahl = 4
    End Sub
    Private Sub CodeErscheinung_Click(sender As System.Object, e As System.EventArgs) Handles CodeErscheinung.Click
        Form2.Show()
    End Sub
    Private Sub Button_Click(sender As System.Object, e As System.EventArgs) Handles Button.Click
        End
    End Sub
End Class