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, nu As Byte, nu1 As Byte
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim ofd As New OpenFileDialog
        CurDir = My.Application.Info.DirectoryPath
        Location = New Point(0, 0)
        For i = 1 To 10
            scheck1 = i & " Text"
            ComboBox1.Items.Add(scheck1)
        Next
        ComboBox1.SelectedIndex = 0
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Text13.Text = ComboBox1.Text
    End Sub
    Private Sub CodeErscheinung_Click(sender As System.Object, e As System.EventArgs) Handles CodeErscheinung.Click
        wahl = 0
        Form2.ShowDialog()
    End Sub
    Private Sub Button_Click(sender As System.Object, e As System.EventArgs) Handles Button.Click
        End
    End Sub
End Class