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
        CurDir = My.Application.Info.DirectoryPath
        Text1.Text = ""
        Text2.PasswordChar = "*"
        Text3.Multiline = True
        Text4.Text = "geschützt"
    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