Catch Me Version 2.0.0

Hello guys sorry I didn't write more tutorials but I was very busy but now I am Free let's make Catch me Version 2.0.0 

OK , If you didn't make Catch me Version 1.0.0 go here and make it

Now our improvement in this version is :-

1. Full Screen Mode
2. Green effect
3. Highest Results

1-Full Screen Mode

Change WindowState property to Maximized

and Add This Code under Public Class Form1

Dim screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width

Dim screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height

and in Timer1_Tick change this :-

x = CInt(Rnd() * 800 - 0)
y = CInt(Rnd() * 600 - 0)

to :-

x = CInt(Rnd() * screenWidth - 0)
y = CInt(Rnd() * screenHeight - 0)

Change Start Button Anchor property to Down , Right

Change Quit Button Anchor property to Down , Left

2- Green Effect

In PictureBox1_Click add this code :-

        Me.BackColor = Color.Green

After Public Class Form1

Dim tempcolor As Color = Me.BackColor

In Start Button add this 

        Me.BackColor = tempcolor

3- Highest Results

After Public Class Form1 add this :-

Dim h_result As Integer

And remove this from Start Button

result = 0

Add this in Stopper If statment

If h_result < result Then

                h_result = result

                result = 0

End If

Edit Label1.text to this : -

   Label1.Text = "Your Highest Result =" & h_result & " ,Do You want to play again ?"

Thank You for reading Please leave Comment