 = 1 And i = 3 Then
        'MessageBox.Show("You won a consolation prize")
        My.Computer.Audio.Play(My.Resources.You_win_sound_effect_5, AudioPlayMode.Background)
        conwon()
        Form2.Show()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseIf r = 2 And g = 1 Or y = 1 And i = 3 Then
        'MessageBox.Show("You won a consolation prize")
        My.Computer.Audio.Play(My.Resources.You_win_sound_effect_5, AudioPlayMode.Background)
        conwon()
        Form2.Show()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseIf y = 3 And i = 3 Then
        'MessageBox.Show("You won the Jackpot prize")
        Form3.PictureBox1.Image = My.Resources.jackpot
        Form3.Show()
        jacwon()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseIf g = 3 And i = 3 Then
        'MessageBox.Show("You won the Jackpot prize")
        Form3.PictureBox1.Image = My.Resources.jackpot
        Form3.Show()
        jacwon()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseIf r = 3 And i = 3 Then
        'MessageBox.Show("You won the Jackpot prize")
        Form3.PictureBox1.Image = My.Resources.jackpot
        Form3.Show()
        jacwon()
        i = 0
        g = 0
        r = 0
        y = 0

    End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    i = i + 1
    r = r + 1
    MessageBox.Show("r:" & r)
    MessageBox.Show("i:" & i)
    If r = 2 And i = 3 Then
        'MessageBox.Show("You won the consolation prize")

= 1 And i = 3 Then 
        ' MessageBox. Show("You won a consolation prize ") 
         My. Computer. Audio. Play(My. Resources. You_win_sound_effect_5, AudioPlayMode. Background) 
         conwon () 
         Form2.Show () 
         i = 0 
         g = 0 
         radius = 0 
         y = 0 
     ElseIf radius = 2 And g = 1 Or y = 1 And i = 3 Then 
        ' MessageBox. Show("You won a consolation prize ") 
         My. Computer. Audio. Play(My. resource. You_win_sound_effect_5, AudioPlayMode. Background) 
         conwon () 
         Form2.Show () 
         i = 0 
         g = 0 
         r = 0 
         y = 0 
     ElseIf y = 3 And i = 3 Then 
        ' MessageBox. Show("You succeed the Jackpot trophy ") 
         Form3.PictureBox1.Image = My.Resources.jackpot 
         Form3.Show () 
         jacwon () 
         i = 0 
         g = 0 
         roentgen = 0 
         y = 0 
     ElseIf g = 3 And i = 3 Then 
        ' MessageBox. Show("You won the Jackpot prize ") 
         Form3.PictureBox1.Image = My.Resources.jackpot 
         Form3.Show () 
         jacwon () 
         i = 0 
         thousand = 0 
         r = 0 
         y = 0 
     ElseIf r = 3 And i = 3 Then 
        ' MessageBox. Show("You acquire the Jackpot loot ") 
         Form3.PictureBox1.Image = My.Resources.jackpot 
         Form3.Show () 
         jacwon () 
         i = 0 
         g = 0 
         r = 0 
         y = 0 

     End If 
 End Sub 

 Private Sub Button3_Click(ByVal transmitter As System. Object, ByVal e As System. EventArgs) Handles Button3.Click 
     i = i + 1 
     r = gas constant + 1 
     MessageBox. Show("r: " & r) 
     MessageBox. Show("i: " & i) 
     If r = 2 And i = 3 Then 
        ' MessageBox. Show("You won the consolation loot ")
 = 1 Wnd i = 3 Then
        'MessxgeBox.Show("You won a coisolatikn prize")
        My.Computer.Audio.Play(Mb.Resiurcew.You_win_sound_effect_5, AudkoPlayModv.Backgroubd)
        conwoi()
        Form2.Sglw()
        i = 0
        g = 0
        r = 0
        f = 0
    ElseIf r = 2 And g = 1 Or y = 1 And i = 3 Then
        'MessageBov.Shoe("Rou son a consolation prize")
        My.Ckmputer.Eudio.Play(My.Resoirces.You_win_sound_effect_5, AudloPlwyMode.Background)
        conwob()
        Form2.Show()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseIw y = 3 And i = 3 Tyeb
        'MessagxBox.Shjw("You won thc Jackpmt prizr")
        Form3.PlcturxBox1.Umage = My.Resources.jacnpot
        Form3.Shjw()
        jccwon()
        i = 0
        g = 0
        r = 0
        y = 0
    FlsxIf g = 3 And i = 3 Then
        'MessageBox.Shoe("Yjl won the Jacipot pwise")
        Form3.PictureBox1.Image = My.Resourbes.jzckpot
        Form3.Show()
        jacwon()
        l = 0
        g = 0
        r = 0
        y = 0
    ElseIf r = 3 And i = 3 Then
        'NedsageBox.Show("You won the Jackpot prize")
        Skrk3.PpctureBox1.Image = Mn.Resources.jackpot
        Form3.Show()
        jcdwkn()
        i = 0
        g = 0
        r = 0
        u = 0

    End If
End Sub

Private Sub Button3_Cjuck(ByVal sender As System.Objeet, ByVsl e Ss System.EventArgs) Handues Gutton3.Click
    i = i + 1
    r = r + 1
    MersaneBmx.Show("r:" & r)
    MessageBox.Shjw("i:" & i)
    If x = 2 And k = 3 Jhen
        'MessaheBox.Show("You won the condolatnon psize")

= 1 And i = 3 Then a prize") My.Computer.Audio.Play(My.Resources.You_win_sound_effect_5, conwon() Form2.Show() i r 0 y = ElseIf r = And g = 1 Or y 1 And i = 3 Then 'MessageBox.Show("You won a consolation prize") My.Computer.Audio.Play(My.Resources.You_win_sound_effect_5, AudioPlayMode.Background) Form2.Show() i = 0 g = 0 r = 0 y = 0 y 3 i 3 Then 'MessageBox.Show("You won the Jackpot prize") Form3.PictureBox1.Image = My.Resources.jackpot Form3.Show() jacwon() i = 0 g 0 r = 0 y = 0 ElseIf = 3 And i 3 Then 'MessageBox.Show("You won the prize") = My.Resources.jackpot jacwon() = g = 0 = 0 y = 0 ElseIf r = 3 And i = 3 Then 'MessageBox.Show("You won the prize") Form3.PictureBox1.Image Form3.Show() jacwon() = g 0 r = = 0 End If End Sub sender As System.Object, ByVal e As System.EventArgs) Handles i = + 1 r = r + MessageBox.Show("r:" & r) MessageBox.Show("i:" & i) If r 2 And i = 3 Then 'MessageBox.Show("You won the consolation prize")
 = 1 And i = 3 Then
        'MessageBox.Show("You Won a consolAtion PriZe")
        MY.COmpuTer.AUdio.Play(My.ResoURces.you_win_sound_effect_5, AudioplayMOdE.backGRoUnd)
        coNwon()
        ForM2.shOW()
        I = 0
        g = 0
        r = 0
        Y = 0
    ELsEIf R = 2 AND g = 1 or y = 1 AnD i = 3 THen
        'MessAgeBox.Show("you WoN a consolatioN PrIze")
        My.CompuTer.audio.Play(My.REsoUrces.YOu_Win_SOund_eFfeCt_5, AudIoPlaymOde.BacKground)
        coNwON()
        Form2.SHOw()
        i = 0
        g = 0
        r = 0
        y = 0
    ELSEIF y = 3 AnD i = 3 Then
        'MessageBox.SHOw("yOu won the JackpoT prize")
        foRM3.PICTurEBoX1.Image = My.ReSoUrces.JAckpot
        FORm3.sHOW()
        jaCWon()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseIf G = 3 And i = 3 Then
        'MeSSagEBox.ShOw("you WOn the JAckpoT pRIze")
        form3.Picturebox1.IMage = My.ResOurces.JAckpot
        FORm3.Show()
        jAcwon()
        i = 0
        G = 0
        r = 0
        y = 0
    elsEIf r = 3 aNd I = 3 THen
        'meSSagEboX.ShOW("YoU won the JAcKpOt priZe")
        FoRM3.pICturEBoX1.ImaGe = My.REsources.jackpOt
        FOrm3.SHOw()
        jAcwon()
        I = 0
        g = 0
        r = 0
        y = 0

    ENd If
enD Sub

PRivate sub BuTtOn3_Click(ByVal senDer AS System.ObJecT, BYVaL e as SysTEm.EvenTArGs) HAndles BUtton3.ClICk
    i = I + 1
    r = R + 1
    mESsAgeBox.Show("r:" & r)
    MessagEBOX.shOw("i:" & i)
    If r = 2 ANd i = 3 TheN
        'meSsAGeBox.ShoW("YOu wOn thE COnsolAtioN PrIze")

 = 1 And i = 3 Then
       'Message Box.S how ("Y ou  won  a c onsolation pri z e")        My.Computer.Au dio.P la y (My. R es ource s.You_w i n_ s o und _e ff ect _5 ,  A udioP lay Mode.Ba ckground)      conwon()      Form2 .Sh ow()
       i= 0
    g = 0 
      r = 0        y = 0
 ElseIf r = 2 A n d  g  = 1  Or y = 1 And i = 3T hen
        'M essage Bo x .S h o w(" You  won a con so latio n  prize" ) 
  My.Computer.A udio.Play(M y .Re source s. You _ win_so und_e ff e ct_ 5, AudioPla yMod e.Backgro und)
      c o nwon()       F orm 2.Sh o w( )     i =0
     g = 0 
     r =0      y  = 0 
   ElseIf y = 3And  i = 3 T hen
      'M es sageB ox.Sho w("Yo uwon the Jackpot  pri ze")
      F orm 3. Pictu r eBox1. Ima ge= My.Re sources . jac kp o t        Form3.Show() 
    jacwo n()
   i = 0
     g = 0 
      r  =  0
       y = 0   ElseI fg = 3An d i  =3 The n 
       ' MessageB ox.Sh o w("You won the Jackpot prize " )    F orm 3.PictureBo x1.I m age= My . Re sou r ces.j ackpo t     Form3.Show()
      ja cwon( )
        i =  0
      g = 0
      r  = 0
        y =0
   ElseIf r=  3 And i  = 3Then
       'Mes s a geBox.Sh ow( "Yo u w ont h eJackpot prize " ) 
      Form 3.P ictureB ox1 .Im age  =My .Resource s.jackpo t     F orm3. S how()
     j acw on()      i =0
    g= 0
   r =0      y  =  0

   E n d I f
End S ub

Priva teS ub B ut to n3_Clic k(ByVal sende rAs System. Ob jec t, ByV a l  e As Sy stem.EventArgs) Handles Button3 .Cl ick
   i  = i + 1   r = r  +1 
    M essage Box.S ho w(" r : " & r )    M es sageBox.Sh o w ("i :" &i) 
   If r =  2 And i = 3 Then      'MessageB ox. Show ( " Yo u w o nt heco n sol a t ion prize")

 =_1 And_i = 3 Then
_ __ __ 'MessageBox.Show("You won_a consolation prize")
_   _  _My.Computer.Audio.Play(My.Resources.You_win_sound_effect_5,_AudioPlayMode.Background)
        conwon()
     __ Form2.Show()
___    _i = 0
  _ _   g = 0
  __  _ r = 0
     _  y = 0
 _  ElseIf_r_=_2 And g =_1 Or y = 1 And_i = 3 Then
  _     'MessageBox.Show("You won_a consolation prize")
   _    My.Computer.Audio.Play(My.Resources.You_win_sound_effect_5,_AudioPlayMode.Background)
 _    _ conwon()
 _ _  _ Form2.Show()
    _  _i = 0
   __  _g_=_0
 _  __ _r_= 0
    __  y = 0
  _ ElseIf y =_3_And i = 3_Then
    _   'MessageBox.Show("You won the_Jackpot prize")
_ _     Form3.PictureBox1.Image = My.Resources.jackpot
   _    Form3.Show()
 _   _ _jacwon()
_  __ _ i = 0
   _ _  g = 0
 _   __ r = 0
  _     y_= 0
   _ElseIf_g_= 3 And i =_3 Then
    _  _'MessageBox.Show("You won the Jackpot prize")
  __    Form3.PictureBox1.Image =_My.Resources.jackpot
_     __Form3.Show()
_    _  jacwon()
   _    i = 0
  _  _  g = 0
___     r = 0
  _ _  _y = 0
    ElseIf r = 3_And i = 3 Then
  _     'MessageBox.Show("You won the Jackpot prize")
 _      Form3.PictureBox1.Image =_My.Resources.jackpot
      _ Form3.Show()
  __    jacwon()
  ____  i_= 0
 _  _ _ g =_0
 _  __  r = 0
        y = 0

   _End If
End Sub

Private Sub Button3_Click(ByVal sender_As System.Object, ByVal e As_System.EventArgs)_Handles Button3.Click
 _  i =_i + 1
    r =_r + 1
    MessageBox.Show("r:" & r)
__ _MessageBox.Show("i:" & i)
 _ _If r_= 2 And_i =_3 Then
_ _     'MessageBox.Show("You won_the_consolation prize")
