Public Class Form1
    REM Dim isMoving As Boolean = False
    REM Dim startPos As Point
    Dim X As Integer
    Dim Y As Integer
    Dim Pbar As Integer
    Dim Pbar2 As Integer
    Dim Tester As Integer
    Dim eins As Integer = New Random().Next(0, 469)         REM(0, 496)
    Dim zwei As Integer = New Random().Next(83, 614)         REM(0, 522)
    REM Dim posi1 As Integer = Me.Width * Rnd()
    REM Dim posi2 As Integer = Me.Height * Rnd()





    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        PictureBox1.SendToBack()
    End Sub
    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
        Label5.Text = MousePosition.X
        Label6.Text = MousePosition.Y
    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Enabled = True Then
            Cursor = Cursors.Cross
            MsgBox("Um Waffe zu aktivieren auf den Feuer-Button klicken!")
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Tester = Tester + 1
        If PictureBox3.ImageLocation = "C:\Users\admin\Desktop\Riel Tool\Schiff1.png" Then
            Pbar = Pbar + 1
            Pbar2 = Pbar2 + 2
            ProgressBar1.Value = Pbar
            MsgBox("Getroffen")
        End If

        If Tester = 1 Then
            Button1.BackColor = Color.Green
        End If



        eins = Rnd() * (Me.Width - PictureBox3.Width)
        zwei = Rnd() * (Me.Height - PictureBox3.Height)

        If ProgressBar1.Value <> Pbar2 Then
            PictureBox3.Location = New Point(eins)
            PictureBox3.Location = New Point(zwei)
        End If




    End Sub

    Private Sub Button1_KeyDown(sender As Object, e As KeyEventArgs) Handles Button1.KeyDown
        If e.KeyCode = Keys.Q Then
            Button1.PerformClick()

        End If
    End Sub

    Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox3.MouseEnter
        If Cursor = Cursors.Cross Then
            PictureBox3.ImageLocation = "C:\Users\admin\Desktop\Riel Tool\Schiff1.png"
        End If

    End Sub

    Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox3.MouseLeave
        If Cursor = Cursors.Cross Then
            PictureBox3.ImageLocation = ""
        End If
    End Sub


End Class