Public Class Form1
    Private WithEvents FF As Form2
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Location = New Point(0, 0)
        curdir = My.Application.Info.DirectoryPath
        Icon = New Icon("E:\Homepage\test\back3.ico")
        Text = "Hallo"
        BackColor = Color.Azure
        Me.BackgroundImage = Image.FromFile("E:\Homepage\test\back3.jpg")
        Me.Refresh()
    End Sub
    Private Sub codeerscheinung_Click(sender As System.Object, e As System.EventArgs) Handles CodeErscheinung.Click
        Form2.Show()
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        wahl = wahl + 1
        Select Case wahl
            Case 1 : FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
                Button1.Text = "FormBorderStyle=none"
            Case 2 : FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
                Button1.Text = "FormBorderStyle=Fixed3D"
            Case 3 : FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
                Button1.Text = "FormBorderStyle=FixedSingle"
            Case 4 : FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
                Button1.Text = "FormBorderStyle=FixedDialog"
            Case 5 : FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
                Button1.Text = "FormBorderStyle=Sizable"
            Case 6 : FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
                Button1.Text = "FormBorderStyle=FixedToolWindow"
            Case 7 : FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
                Button1.Text = "FormBorderStyle=SizableToolWindow"
        End Select
        Me.Refresh()
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        wahl1 = wahl1 + 1
        FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
        Select Case wahl1
            Case 1 : Location = New Point(0, 0)
                Text = "0, 0"
            Case 2 : Location = New Point(500, 500)
                Text = "500, 500"
            Case 3 : Location = New Point(1000, 1000)
                Text = "1000, 1000"
        End Select
        Me.Refresh()
    End Sub
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        wahl2 = wahl2 + 1
        FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
        Select Case wahl2
            Case 1
                Width = 300
                Height = 250
                Text = "Breite 300  Höhe 250"
            Case 2
                Width = 600
                Height = 400
                Text = "Breite 600  Höhe 400"
            Case 3
                Width = 200
                Height = 250
                Text = "Breite 200  Höhe 250"
        End Select
        Me.Refresh()
    End Sub
    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        wahl3 = wahl3 + 1
        FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
        Select Case wahl3
            Case 1
                Icon = New Icon("E:\Homepage\test\back3.ico")
                BackColor = Color.Azure
                Me.BackgroundImage = Image.FromFile("E:\Homepage\test\banner1.jpg")
                Text = "Banner1.jpg"
            Case 2
                Icon = New Icon("E:\Homepage\test\lutz2.ico")
                BackColor = Color.Azure
                Me.BackgroundImage = Image.FromFile("E:\Homepage\test\lutz2.png")
                Text = "lutz2.png"
            Case 3
                Icon = New Icon("E:\Homepage\test\twitter.ico")
                BackColor = Color.Azure
                Me.BackgroundImage = Image.FromFile("E:\Homepage\test\twitter.png")
                Text = "twitter.png"
        End Select
        Me.Refresh()
    End Sub
    Private Sub form1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LostFocus
        Stop
    End Sub
    Private Sub Button_Click(sender As System.Object, e As System.EventArgs) Handles Button.Click
        End
    End Sub
End Class