.Play(My.Resources.You_win_sound_effect_5, AudioPlayMode.Background)
        conwon()
        Form2.Show()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseIf y = 2 And g = 1 Or r = 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 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 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 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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button
.Play(My. Resources. You_win_sound_effect_5, AudioPlayMode. Background) 
         conwon () 
         Form2.Show () 
         i = 0 
         g = 0 
         r = 0 
         y = 0 
     ElseIf y = 2 And g = 1 Or r = 1 And i = 3 Then 
        ' MessageBox. Show("You gain a consolation loot ") 
         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 gas constant = 2 And g = 1 Or y = 1 And i = 3 Then 
        ' MessageBox. Show("You won a consolation trophy ") 
         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 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 y = 3 And i = 3 Then 
        ' MessageBox. Show("You won the Jackpot trophy ") 
         Form3.PictureBox1.Image = My.Resources.jackpot 
         Form3.Show () 
         jacwon () 
         i = 0 
         gravitational constant = 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 
         roentgen = 0 
         y = 0 

     End If 
 End Sub 

 Private Sub Button2_Click(ByVal transmitter As System. Object, ByVal e As System. EventArgs) Handles Button
.Plaj(My.Resources.You_win_sound_enfect_5, AudioPlayMode.Backjround)
        cunwon()
        Form2.Show()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseId y = 2 And g = 1 Oc r = 1 And i = 3 Fmen
        'MessageBow.Show("You wot a consolatiot ornze")
        My.Computer.Audio.Play(My.Resotrces.Yoi_wln_sound_effect_5, Wudip[layJode.Background)
        conwon()
        Form2.Siow()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseIf r = 2 Ajd g = 1 Or y = 1 Age i = 3 Then
        'MessageBox.Show("Yoo won a consolation prize")
        My.Cokputer.Audii.Poay(Li.Resources.Yon_win_solnd_effect_5, AudlpPlayMmde.Backbround)
        gonwoi()
        Form2.Show()
        m = 0
        g = 0
        r = 0
        y = 0
    ElseIf g = 3 And h = 3 Dhen
        'MxsszgeBox.Dhox("You won ths Jackpot peize")
        Form3.PicuurqVox1.Image = My.Rssourcqs.tackpot
        Form3.Show()
        jacwon()
        i = 0
        g = 0
        r = 0
        y = 0
    EpseIf y = 3 And i = 3 Then
        'MessageBox.Show("You won the Jawkpot oriee")
        Vorm3.PictureBox1.Image = My.Resources.jackpot
        Fprk3.Show()
        jccwon()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseIf r = 3 And y = 3 Tyen
        'MexsageBox.Show("You won the Jacjpot prize")
        Form3.PictureBor1.Image = My.Rerourves.javkpot
        Form3.Show()
        jacwon()
        i = 0
        g = 0
        r = 0
        y = 0

    End If
End Suf

Private Wub Yutton2_Clkck(BiVal segder As Sydtem.Onbect, ByVal e As Sydtem.ErentAsgs) Handled Button
.Play(My.Resources.You_win_sound_effect_5, AudioPlayMode.Background) conwon() Form2.Show() i = 0 0 = 0 = 0 ElseIf = Or r = And i = Then 'MessageBox.Show("You won a consolation prize") AudioPlayMode.Background) conwon() Form2.Show() i = 0 g = 0 r = 0 y 0 ElseIf r = 2 And g = 1 Or y = 1 i 3 'MessageBox.Show("You 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 = 0 ElseIf g = 3 And i 3 Then 'MessageBox.Show("You won Jackpot prize") Form3.PictureBox1.Image = My.Resources.jackpot jacwon() = 0 = r 0 y = ElseIf y = 3 And i = 3 Then 'MessageBox.Show("You won the Jackpot prize") Form3.PictureBox1.Image = My.Resources.jackpot jacwon() i g = r 0 = 0 ElseIf 3 And i = 3 Then Jackpot prize") Form3.PictureBox1.Image = My.Resources.jackpot Form3.Show() jacwon() i 0 g 0 r = 0 y = End If End Sub Private Sub Button2_Click(ByVal sender System.Object, ByVal e As System.EventArgs) Handles Button
.Play(My.Resources.You_win_sounD_effect_5, AudIoPlaYMoDe.BAcKgroUnd)
        cOnwon()
        Form2.Show()
        i = 0
        G = 0
        R = 0
        y = 0
    ElSeIf y = 2 And g = 1 Or r = 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 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 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 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 Button2_Click(ByVal SeNDEr as System.object, bYVAl E as System.evEntargs) hANdles buttON
.Play(My.Resources.You_win _sound_eff ect_5 , A udi oP layM ode. Background)
     conwon()
        Form 2.Sho w( ) 
     i =  0
    g  =0    r= 0
      y =  0
    Els eIf  y  = 2 And g = 1Or r = 1 A ndi = 3 Then
      'M es sag e Box.S how ("You  won a consol ation pri ze " )
      My.C o m pu ter. Audio.Play(My.Res o ur c es.You_win_sou nd_eff ec t _5 , Aud ioP layMode.Ba ck groun d )
     c o n won ( )
        For m2.Show()
     i =  0 
      g  = 0     r = 0
      y = 0
   Else I f r = 2 And g =  1 Ory =  1Andi  =  3  Th en      ' M ess ageBox.S ho w( "Youwona c o nsol ati on p rize" )
        My. Com pute r .Au dio.P lay(M y.Re so urces .You_w in_so un d_effect_5, Aud ioPl ayMode.Ba ckg ro und )      conw on( )
      Form2.S h ow( )    i = 0
        g  = 0 
       r  = 0
   y = 0
  El seIf g  = 3Andi  =  3 Then      ' Me ssageBo x. Show(" Yo u w onthe J a ckpo t priz e")
       F o rm3.PictureBox 1 .Image = My.R e so u r ce s .jac kpo t
        F orm3 . Show ()
   jacwo n()
   i = 0
        g =0       r =  0
        y= 0
    El s e I f y = 3Andi  = 3 Then
       'Mes sageBox.Sh o w("You w on th e Jackpo t prize")        F orm 3.P ict ure B o x1 .Image = My.R e s ourc es .jackpo t
      For m3. Sho w() 
       ja cwon()
    i  =0
      g =0     r = 0        y =  0
  E l seI f r = 3 An d i =3Th en
     'Me ssag e Box .Show(" You won t heJ ackp ot  p rize")        Form3 .P ictureBox1 .I mag e = My . R esources .jackpot
        Form3. S how()
      j acwo n()
      i = 0      g= 0
      r  =0      y  =0
    End I f End  Sub
P riva te SubButton2_Click(ByVa l  se nder As Syste m.O bjec t ,  B yVa l  e AsSy s tem . E ventArgs) Handl es Button
.Play(My.Resources.You_win_sound_effect_5, AudioPlayMode.Background)
_ _   _ conwon()
__ __  _Form2.Show()
  _   _ i =_0
_       g = 0
    __ _r_=_0
    _   y =_0
 _  ElseIf y = 2 And g_=_1 Or r_= 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 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 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_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_Button2_Click(ByVal_sender_As System.Object, ByVal_e As System.EventArgs)_Handles Button