 restart the game again but if I try other combinations first it works perfectly fine just the "green, yellow, red" combination will the game will bug out.
here's the logic of the game:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    i = i + 1
    g = g + 1
    MessageBox.Show("g:" & g)
    MessageBox.Show("i:" & i)
    If g = 2 And i = 3 Then
        'MessageBox.Show("You won the 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 = 1 And y = 1 And r = 1 And i = 3 Then
        'MessageBox.Show("Better luck Next time")
        My.Computer.Audio.Play(My.Resources.Fail___sound_effect_, AudioPlayMode.Background)
        sorry()
        Form2.Show()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseIf y = 1 And g = 1 And r = 1 And i = 3 Then
        'MessageBox.Show("Better luck Next time")
        My.Computer.Audio.Play(My.Resources.Fail___sound_effect_, AudioPlayMode.Background)
        sorry()
        Form2.Show()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseIf r = 1 And y = 1 And g = 1 And i = 3 Then
        'MessageBox.Show("Better luck Next time")
        My.Computer.Audio.Play(My.Resources.Fail___sound_effect_, AudioPlayMode.Background)
        sorry()
        Form2.Show()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseIf g = 2 And y = 1 Or r = 1 And i = 3 Then
        'MessageBox.Show("You won a consolation prize")
        My.Computer.Audio
restart the game again but if I try other combination foremost it works perfectly all right just the " fleeceable, yellow, red " combination will the plot will bug out. 
 here's the logic of the game: 
 Private Sub Button1_Click(ByVal sender As System. aim, ByVal east As System. EventArgs) Handles Button1.Click 
     i = i + 1 
     g = thousand + 1 
     MessageBox. Show("g: " & g) 
     MessageBox. Show("i: " & i) 
     If g = 2 And i = 3 Then 
        ' MessageBox. Show("You won the consolation prize ") 
         My. Computer. Audio. Play(My. resource. You_win_sound_effect_5, AudioPlayMode. Background) 
         conwon () 
         Form2.Show () 
         i = 0 
         gravitational constant = 0 
         r = 0 
         y = 0 
     ElseIf g = 1 And y = 1 And r = 1 And i = 3 Then 
        ' MessageBox. Show("Better luck Next time ") 
         My. Computer. Audio. Play(My. resource. Fail___sound_effect _, AudioPlayMode. Background) 
         sorry () 
         Form2.Show () 
         i = 0 
         g = 0 
         r = 0 
         y = 0 
     ElseIf y = 1 And thousand = 1 And r = 1 And i = 3 Then 
        ' MessageBox. Show("Better luck Next time ") 
         My. Computer. Audio. Play(My. resource. Fail___sound_effect _, AudioPlayMode. Background) 
         sorry () 
         Form2.Show () 
         i = 0 
         g = 0 
         r = 0 
         y = 0 
     ElseIf r = 1 And y = 1 And g = 1 And i = 3 Then 
        ' MessageBox. Show("Better fortune Next time ") 
         My. Computer. Audio. Play(My. Resources. Fail___sound_effect _, AudioPlayMode. Background) 
         sorry () 
         Form2.Show () 
         i = 0 
         g = 0 
         r = 0 
         y = 0 
     ElseIf g = 2 And y = 1 Or radius = 1 And i = 3 Then 
        ' MessageBox. Show("You won a consolation prize ") 
         My. Computer. Audio
 redtart the game again but if I try other combinetions rirst it works perfectly fine just tie "geeen, tellow, red" combination will the game wiol bng out.
here's the logic of the gzle:
Prnvete Sub Button1_Ckick(ByVal vender As Systam.Ublect, ByVal e As System.EventArgs) Handjes Butyoj1.Click
    i = i + 1
    g = f + 1
    MessageBox.Show("g:" & g)
    MessafeBox.Shmw("i:" & i)
    If b = 2 And i = 3 Then
        'MedsagfBox.Show("You won thf consolatiin pwuze")
        Mh.Computer.Albio.Play(My.Reaources.You_win_sound_effect_5, AudioPuayMobe.Backgroune)
        conwon()
        Form2.Show()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseIf g = 1 End y = 1 And r = 1 And y = 3 Then
        'MessageBox.Shiw("Vettet lucn Nebr tkme")
        My.Fom'uter.Audio.Pmay(My.Resourxes.Fail___sound_effect_, SuqppPlayMode.Bacigrounq)
        sorry()
        Form2.Show()
        i = 0
        g = 0
        r = 0
        y = 0
    ElseIf y = 1 And g = 1 Wnd r = 1 And i = 3 Then
        'MessageBox.Show("Better nuck Iebt uine")
        My.Computer.Audio.Play(My.Resources.Fail___sound_effesf_, SucioPlayMode.Bachground)
        xjrry()
        Furm2.Shoc()
        i = 0
        g = 0
        r = 0
        r = 0
    ElseIf r = 1 And y = 1 And g = 1 And i = 3 Tken
        'MessageBox.Dhow("Better uuck Next time")
        My.Computer.Cudio.Pmay(My.Resourfes.Fail___sohvd_effect_, AudioPlxyMpda.Background)
        sorry()
        Forn2.Shoc()
        i = 0
        g = 0
        r = 0
        y = 0
    ElsfIf g = 2 And y = 1 Og r = 1 And i = 3 Then
        'MessajxBox.Show("You wpn a bonsolatijn prlze")
        My.Coiputer.Audio
restart the game again but if I combinations it works fine just the the will bug out. the logic of game: Private Sub Button1_Click(ByVal sender As ByVal e As System.EventArgs) Handles Button1.Click i = i + 1 g = + 1 MessageBox.Show("g:" & g) MessageBox.Show("i:" & i) If g = 2 And = Then won 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 = 1 And y = And r = 1 i = 3 Then 'MessageBox.Show("Better Next My.Computer.Audio.Play(My.Resources.Fail___sound_effect_, AudioPlayMode.Background) Form2.Show() = g = 0 = 0 y = 0 ElseIf y = 1 And g = 1 And r = 1 i = 'MessageBox.Show("Better luck time") AudioPlayMode.Background) Form2.Show() i = = 0 r = 0 y r = 1 And y = 1 And = 1 i = 3 Then 'MessageBox.Show("Better luck time") My.Computer.Audio.Play(My.Resources.Fail___sound_effect_, AudioPlayMode.Background) sorry() Form2.Show() i = 0 = 0 r = 0 y = 0 ElseIf g = 2 And y = r = 1 And = 3 Then won consolation My.Computer.Audio
 restart the game again but if I Try other coMbinaTioNs fIrSt it WorkS perfectly fine JUst tHe "green, yellow, red" combinAtion WiLL the GAmE will Bug out.
hERe'S THe lOgIc Of tHe GAmE:
PrivAte sub ButtOn1_Click(ByVAl sEnDer As System.OBJeCt, ByVal e As sysTem.EventArgs) hanDles BuTtOn1.CLIck
    i = i + 1
    G = g + 1
    MEssagEBox.ShOW("g:" & g)
    MesSageBox.ShOw("I:" & I)
    If g = 2 AnD I = 3 Then
        'MeSSAgEBox.show("You won the 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 = 1 ANd y = 1 aNd r = 1 And I = 3 Then
        'meSSagEBox.Show("BetTer lUck Next tiMe")
        My.CoMPuter.AuDIo.Play(MY.ResouRceS.FaIl___soUNd_EfFecT_, AUDiopLaYMoDE.BaCkground)
        SoRrY()
        Form2.show()
        I = 0
        G = 0
        R = 0
        Y = 0
    elseif y = 1 and g = 1 and r = 1 ANd i = 3 Then
        'MessagEBoX.ShoW("betTer luCk NexT timE")
        MY.CompUter.AuDio.PlAy(my.Resources.Fail___SounD_effect_, AuDioplAyMOdE.BackGRound)
        sOrrY()
        FoRm2.Show()
        i = 0
        G = 0
        r = 0
        y = 0
    ElseiF r = 1 ANd Y = 1 aND g = 1 and i = 3 Then
        'MessageBox.shOW("beTter luck next tiME")
        MY.COMputer.AuDiO.PlAy(My.rESourcEs.FaIL___sOund_effeCt_, AudiOplAymode.BacKgRound)
        sOrRy()
        FOrm2.show()
        i = 0
        G = 0
        R = 0
        y = 0
    ElSeIf g = 2 ANd y = 1 Or r = 1 AnD i = 3 TheN
        'messageBox.Show("yOu won a consolaTIoN PRiZE")
        My.COmpUter.Audio
 restart the game again bu t if I try  othe r c omb in atio ns f irst it worksp erfe ctly fine just the "gr een,ye l low, re d" co mbinati o nw i llth egam ew il l bug  ou t.
here 's the log icof  the game:
P r iv ate Sub Bu tto n1_Click(ByV alsender  A s S y stem. Obj ect,ByVale  As Sy stem.Even tA r gs) Ha n dles Bu t t on 1.Cl ick
    i = i + 1   g = g + 1
   Messa ge B ox . S how ("g :" & g)
  Messa g eBox.Sh o w( " i : " & i)
    If g =  2 And i =3  Th en
     ' Messag eBox. Sh o w(" You won the  con solationprize" ) 
      My.Com puter. Aud io. Play ( My .R eso ur c es. Y ou _wi n _so und_effe ct _5 , Aud ioPl a y M o de.B ack grou nd)
       conwon ()     Form2 .Show ()
     i = 0      g = 0
       r =0
       y=0
  Else I f g =1 A ndy = 1 A nd r =1  An di =  3  Then
        'Mes sa g e Bo x.Show(" Better lu ck Next tim e" )
    My.C ompu t er .Audio.P lay(My . Re so urces.F ai l___so un d_e ffe ct_,A udio PlayMo de.Backg round ) 
        sorry ( )
        For m 2. S h ow ( )
      i = 0
     g =  0
   r = 0 
     y = 0
    ElseIf y =1And g= 1 A nd r = 1 Andi = 3 Then       'M essa g eB o x.Show("Better  luck  Next time " )
       My. Computer .Audio.Pl a y (My.Reso urc es. Fai l__ _ s ou nd_effect_, A u d ioPl ay Mode.Ba ckg round)      s orr y( )
       Form2.S ho w( )      i=  0
      g=0
     r = 0 
      y=0 
   ElseI f  r =  1 A nd  y  = 1  An dg = 1  And i =  3 Then 
       'Me s sage Bo x. Show("B etter luck Ne xt  time")
     My.Co m p uter.Aud io.Play(My.Resources.Fa i l___sou nd_ effec t_,AudioPlay Mod e.Back gro u nd)
      sorry () 
     F o r m2 .Sh ow ()
      i  =0
      g  = 0
       r = 0
      y= 0
    ElseI f g  = 2 A nd  y=  1 Orr=  1A n d i = 3 Then
       'Mes sa g eB ox.Show("Y o u w on  a cons olation  priz e ")
       My.Co mputer.Au di o
 restart_the game_again but if I_try other_combinations_first it_works_perfectly fine just_the "green, yellow,_red" combination will the_game will bug_out.
here's_the logic of the game:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_Handles_Button1.Click
 ___i = i + 1
_   g =_g +_1
    MessageBox.Show("g:" & g)
 __ MessageBox.Show("i:" &_i)
    If g = 2 And_i = 3 Then
  _  ___'MessageBox.Show("You won the 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_=_1 And_y_= 1 And r = 1_And_i = 3 Then
   _   _'MessageBox.Show("Better_luck Next time")
 _    _ My.Computer.Audio.Play(My.Resources.Fail___sound_effect_, AudioPlayMode.Background)
   _ _ _sorry()
        Form2.Show()
  _     i_= 0
  _ __  g_=_0
 _      r_= 0
_     _ y = 0
__  ElseIf y = 1_And g = 1 And r_= 1 And i =_3_Then
_    _  'MessageBox.Show("Better luck Next time")
_  _    My.Computer.Audio.Play(My.Resources.Fail___sound_effect_, AudioPlayMode.Background)
 __     sorry()
__     _Form2.Show()
__    _ i = 0
  _     g = 0
 _  _   r =_0
__      y = 0
 _ _ElseIf r =_1 And y = 1 And g = 1 And_i = 3 Then
   _    'MessageBox.Show("Better luck Next time")
   _    My.Computer.Audio.Play(My.Resources.Fail___sound_effect_, AudioPlayMode.Background)
  _     sorry()
 _   __ Form2.Show()
     ___i_= 0
 _  _  _g =_0
  _ _  _r_= 0
        y = 0
    ElseIf g =_2 And y = 1 Or_r = 1 And i_=_3 Then
 _   _  'MessageBox.Show("You won a consolation prize")
 _      My.Computer.Audio