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
    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)
        PictureBox1.Image = Bitmap.FromFile(curdir & "\b60.jpg")
        wahl = 0
    End Sub
    Private Sub option1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles option1.CheckedChanged
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        PictureBox1.Image = Bitmap.FromFile(curdir & "\b60.jpg")
        Text1.Text = "StrechImage"
        wahl = 1
    End Sub
    Private Sub option2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles option2.CheckedChanged
        PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
        PictureBox1.Image = Bitmap.FromFile(curdir & "\b60.jpg")
        Text1.Text = "AutoSize"
        Me.Refresh()
        wahl = 2
    End Sub
    Private Sub option3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles option3.CheckedChanged
        PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage
        PictureBox1.Image = Bitmap.FromFile(curdir & "\b60.jpg")
        Text1.Text = "CenterImage"
        Me.Refresh()
        wahl = 3
    End Sub
    Private Sub option4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles option4.CheckedChanged
        PictureBox1.SizeMode = PictureBoxSizeMode.Normal
        PictureBox1.Image = Bitmap.FromFile(curdir & "\b60.jpg")
        Text1.Text = "Normal"
        Me.Refresh()
        wahl = 4
    End Sub
    Private Sub option5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles option5.CheckedChanged
        PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        PictureBox1.Image = Bitmap.FromFile(curdir & "\b60.jpg")
        Text1.Text = "Zoom"
        Me.Refresh()
        wahl = 5
    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