ARAKNIDE

siv vous voulez mais :
Dim tour As Boolean
Dim nbr As Integer
Private Sub Command1_Click()
For a = 0 To 143
Image2(a).Picture = LoadPicture()

Next
Label1.Caption = "0"
Label2.Caption = "0"
nbr = 0
tour = True
Image4.Picture = Image1(0).Picture
End Sub

Private Sub Form_Load()
tour = True
For a = 0 To 143
Image2(a).Picture = Image1(0).Picture
Image2(a).Height = Image1(0).Height
Image2(a).Width = Image1(0).Width
Image2(a).Picture = Me.Picture

Next
Image4.Picture = Image1(0).Picture
nbr = 0
End Sub

Private Sub Image2_Click(Index As Integer)
If nbr = 99 Then

For a = 0 To 143
If Image2(a).Picture = Image1(0).Picture Then Label2.Caption = Label2.Caption + 1
Next
Label1.Caption = 100 - Label2.Caption
If Label1.Caption > Label2.Caption Then MsgBox "les Rouges gagnent !!!", vbOKOnly, "and the winner is...TA DA !!!" Else MsgBox "les Jaunes gagnent !!!", vbOKOnly, "and the winner is...TA DA !!!"
If Label1.Caption = Label2.Caption Then MsgBox "EGALITE!!!", vbOKOnly, "INCROYABLE !!!"
End If

If Image2(Index).Picture <> Me.Picture Then

Else
nbr = nbr + 1
If tour = True Then Image2(Index).Picture = Image1(0).Picture: tour = False: Image4.Picture = Image3.Picture: Image2(Index).MouseIcon = Image3.Picture Else Image4.Picture = Image1(0).Picture: Image2(Index).Picture = Image3.Picture: tour = True: Image2(Index).MouseIcon = Image2(0).Picture

'***********************************************************************************************
If tour = True And Image2(Index + 1).Picture = Image1(0).Picture Then Image2(Index + 1).Picture = Image3.Picture
If tour = True And Image2(Index - 1).Picture = Image1(0).Picture Then Image2(Index - 1).Picture = Image3.Picture

If tour = True And Image2(Index + 11).Picture = Image1(0).Picture Then Image2(Index + 11).Picture = Image3.Picture
If tour = True And Image2(Index + 12).Picture = Image1(0).Picture Then Image2(Index + 12).Picture = Image3.Picture
If tour = True And Image2(Index + 13).Picture = Image1(0).Picture Then Image2(Index + 13).Picture = Image3.Picture
If tour = True And Image2(Index - 11).Picture = Image1(0).Picture Then Image2(Index - 11).Picture = Image3.Picture
If tour = True And Image2(Index - 12).Picture = Image1(0).Picture Then Image2(Index - 12).Picture = Image3.Picture
If tour = True And Image2(Index - 13).Picture = Image1(0).Picture Then Image2(Index - 13).Picture = Image3.Picture
'If tour = True And Image2(Index - 12).Picture = Image1(0).Picture Then Image2(Index - 12).Picture = Image3.Picture
'***********************************************************************************************
If tour = False And Image2(Index + 1).Picture = Image3.Picture Then Image2(Index + 1).Picture = Image1(0).Picture
If tour = False And Image2(Index - 1).Picture = Image3.Picture Then Image2(Index - 1).Picture = Image1(0).Picture

If tour = False And Image2(Index + 11).Picture = Image3.Picture Then Image2(Index + 11).Picture = Image1(0).Picture
If tour = False And Image2(Index + 12).Picture = Image3.Picture Then Image2(Index + 12).Picture = Image1(0).Picture
If tour = False And Image2(Index + 13).Picture = Image3.Picture Then Image2(Index + 13).Picture = Image1(0).Picture
If tour = False And Image2(Index - 11).Picture = Image3.Picture Then Image2(Index - 11).Picture = Image1(0).Picture
If tour = False And Image2(Index - 12).Picture = Image3.Picture Then Image2(Index - 12).Picture = Image1(0).Picture
If tour = False And Image2(Index - 13).Picture = Image3.Picture Then Image2(Index - 13).Picture = Image1(0).Picture
'If tour = False And Image2(Index - 12).Picture = Image3.Picture Then Image2(Index - 6).Picture = Image1(0).Picture
End If



End Sub

Private Sub Image2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

Image2(Index).MouseIcon = Image4.Picture


End Sub
rien de bien nouveaux