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)
        ListBox1.Items.Clear()
        For i = 1 To 10
            ListBox1.Items.Add("Liste" & i)
        Next
    End Sub
    Private Sub option1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles option1.CheckedChanged
        ListBox1.SelectionMode = 1
        wahl = 1
    End Sub
    Private Sub option2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles option2.CheckedChanged
        ListBox1.SelectionMode = 2
        wahl = 2
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Text13.Text = ""
        scheck1 = ""
        With ListBox1
            For Each Index In ListBox1.SelectedIndices
                scheck1 = Index.ToString() & " "
                Text13.Text = Text13.Text & " " & .Items(scheck1).ToString()
            Next
        End With
    End Sub
    Private Sub Button_Click(sender As System.Object, e As System.EventArgs) Handles Button.Click
        End
    End Sub
    Private Sub CodeErscheinung_Click(sender As System.Object, e As System.EventArgs) Handles CodeErscheinung.Click
        Form2.Show()
    End Sub
End Class