Launcher V.2

Public Class Form1

    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        If (e.Button = Windows.Forms.MouseButtons.Left) Then
            Me.Capture = False
            Me.WndProc(Message.Create(Me.Handle, &HA1, CType(&H2, IntPtr), IntPtr.Zero))

        Else : End If
    End Sub

    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
        Application.Exit()
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Process.Start("C:\wow 3.3.5.a\wow.exe")
        Application.Exit()
    End Sub

    Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click
        Try
            My.Computer.FileSystem.WriteAllText("C:\wow 3.3.5.a\Data\deDE\realmlist.wtf", "Set Realmlist 127.0.0.1", False)
            MsgBox("Deine Realmlist wurde erfolgreich geändert. / Your realmlist was successfull changed ", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox("Deine Realmlist konnte nicht geändert werden / Your realmlist could not be changed", MsgBoxStyle.Critical)

        End Try
    End Sub

    Private Sub PictureBox10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.Click
        If My.Computer.FileSystem.DirectoryExists("C:\wow 3.3.5.a\Cache") Then
            Try
                My.Computer.FileSystem.DeleteDirectory("C:\wow 3.3.5.a\Cache", FileIO.DeleteDirectoryOption.DeleteAllContents)
                MsgBox("Dein Cache Ordner wurde erfolgreich gelöscht / Successfully deleted your cache folder", MsgBoxStyle.Information)
            Catch ex As Exception
                MsgBox("Dein Cache Ordner konnte nicht gelöscht werden / Could not delete your cache folder", MsgBoxStyle.Critical)
            End Try

        Else
            MsgBox("Dein Cache Ordner wurde bereits gelöscht ! / Your cache is already cleared folder!", MsgBoxStyle.MsgBoxHelp)

        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Parent = Me
        PictureBox1.BackColor = Color.Transparent
        PictureBox10.Parent = Me
        PictureBox10.BackColor = Color.Transparent
        PictureBox9.Parent = Me
        PictureBox9.BackColor = Color.Transparent
        PictureBox8.Parent = Me
        PictureBox8.BackColor = Color.Transparent
        PictureBox7.Parent = Me
        PictureBox7.BackColor = Color.Transparent
        PictureBox6.Parent = Me
        PictureBox6.BackColor = Color.Transparent
        PictureBox5.Parent = Me
        PictureBox5.BackColor = Color.Transparent
        PictureBox4.Parent = Me
        PictureBox4.BackColor = Color.Transparent
        PictureBox3.Parent = Me
        PictureBox3.BackColor = Color.Transparent
        PictureBox2.Parent = Me
        PictureBox2.BackColor = Color.Transparent
    End Sub

    Private Sub PictureBox1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter
        PictureBox1.BackgroundImage = My.Resources.Button
    End Sub

    Private Sub PictureBox1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
        PictureBox1.Parent = Me
        PictureBox1.BackgroundImage = Nothing
    End Sub

    Private Sub PictureBox10_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.MouseEnter
        PictureBox10.BackgroundImage = My.Resources.Cache
    End Sub

    Private Sub PictureBox10_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.MouseLeave
        PictureBox10.Parent = Me
        PictureBox10.BackgroundImage = Nothing
    End Sub

    Private Sub PictureBox9_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.MouseEnter
        PictureBox9.BackgroundImage = My.Resources.Realmlist
    End Sub

    Private Sub PictureBox9_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.MouseLeave
        PictureBox9.Parent = Me
        PictureBox9.BackgroundImage = Nothing
    End Sub

    Private Sub PictureBox3_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.MouseEnter
        PictureBox3.BackgroundImage = My.Resources.Schließen
    End Sub

    Private Sub PictureBox3_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.MouseLeave
        PictureBox3.Parent = Me
        PictureBox3.BackgroundImage = Nothing
    End Sub

    Private Sub PictureBox2_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseEnter
        PictureBox2.BackgroundImage = My.Resources.Minimieren
    End Sub

    Private Sub PictureBox2_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseLeave
        PictureBox2.Parent = Me
        PictureBox2.BackgroundImage = Nothing
    End Sub

    Private Sub PictureBox5_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.MouseEnter
        PictureBox5.BackgroundImage = My.Resources.Fanpgage
    End Sub

    Private Sub PictureBox5_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.MouseLeave
        PictureBox5.Parent = Me
        PictureBox5.BackgroundImage = Nothing
    End Sub

    Private Sub PictureBox6_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.MouseEnter
        PictureBox6.BackgroundImage = My.Resources.Youtube
    End Sub

    Private Sub PictureBox6_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.MouseLeave
        PictureBox6.Parent = Me
        PictureBox6.BackgroundImage = Nothing
    End Sub

    Private Sub PictureBox4_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.MouseEnter
        PictureBox4.BackgroundImage = My.Resources.Buttons
    End Sub

    Private Sub PictureBox4_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.MouseLeave
        PictureBox4.Parent = Me
        PictureBox4.BackgroundImage = Nothing
    End Sub

    Private Sub PictureBox8_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.MouseEnter
        PictureBox8.BackgroundImage = My.Resources.Donor
    End Sub

    Private Sub PictureBox8_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.MouseLeave
        PictureBox8.Parent = Me
        PictureBox8.BackgroundImage = Nothing
    End Sub

    Private Sub PictureBox7_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.MouseEnter
        PictureBox7.BackgroundImage = My.Resources.Votepage
    End Sub

    Private Sub PictureBox7_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.MouseLeave
        PictureBox7.Parent = Me
        PictureBox7.BackgroundImage = Nothing
    End Sub

    Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
        MsgBox("Your Hompage URL must in here", MsgBoxStyle.Information)
    End Sub

    Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
        MsgBox("Youtube Channel link must in here", MsgBoxStyle.Information)
    End Sub

    Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
        MsgBox("Your Fanpage must in here", MsgBoxStyle.Information)
    End Sub

    Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click
        MsgBox("Your Donorpage URL must in here", MsgBoxStyle.Information)
    End Sub

    Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click
        MsgBox("Your Votingpage URL must in here", MsgBoxStyle.Information)
    End Sub
End Class