VB Code:
Private Sub TmrPCMove_Timer() On Error Resume Next Static LaCase2 As Integer If LaCase2 < LblCasePC2.Caption Then ImgCase(LaCase2).Picture = ImgPionPC.Picture ImgCase(LaCase2 - 1).Picture = Nothing ImgPionPC.Visible = False ElseIf LaCase2 >= LblCasePC2.Caption Then TmrPCMove.Enabled = False Exit Sub End If LaCase2 = LaCase2 + 1 End Sub
this makes a picture advance in other picture boxes... It works, but, this is for a board game and there are two players... when playerone passes over playertwo, playertwo disappears (because of the line: ImgCase(LaCase2 - 1).Picture = Nothing) ... I know why.. but I don't know how to fix it....


Reply With Quote