• توجه: در صورتی که از کاربران قدیمی ایران انجمن هستید و امکان ورود به سایت را ندارید، میتوانید با آیدی altin_admin@ در تلگرام تماس حاصل نمایید.

بازی پازل

A

ahmadfononi

معاونت انجمن
Dim N As Long
Dim a As Long
Dim k As Long
Dim m As Long
Dim t As Long
Dim w As Long
Dim pic(1 To 3) As Picture
Dim wer
Private Sub Win()
If Image1 = Image18 _
And Image2 = Image19 _
And Image3 = Image20 _
And Image4 = Image21 _
And Image5 = Image22 _
And Image6 = Image23 _
And Image7 = Image24 _
And Image8 = Image25 _
And Image9 = Image26 _
And Image10 = Image27 _
And Image11 = Image28 _
And Image12 = Image29 _
And Image13 = Image30 _
And Image14 = Image31 _
And Image15 = Image32 Then
Image16 = Image33
t = 2
Timer1.Enabled = False
Caption = "Game#15"
End If
End Sub
Private Sub ex_Click()
Unload Me
End Sub
Private Sub Form_Load()
If N = 0 Then
Image1 = Image21
Image2 = Image18
Image3 = Image22
Image4 = Image24
Image5 = Image19
Image6 = Image32
Image7 = Image27
Image8 = Image25
Image9 = Image26
Image10 = Image20
Image11 = Image29
Image12 = Image23
Image13 = Image30
Image14 = Image28
Image15 = Image31
Image16 = Image17
GoTo ex
End If
If N = 1 Then
Image1 = Image25
Image2 = Image23
Image3 = Image27
Image4 = Image21
Image5 = Image18
Image6 = Image20
Image7 = Image19
Image8 = Image24
Image9 = Image22
Image10 = Image28
Image11 = Image32
Image12 = Image30
Image13 = Image29
Image14 = Image26
Image15 = Image31
Image16 = Image17
GoTo ex
End If
If N = 2 Then
Image1 = Image32
Image2 = Image30
Image3 = Image20
Image4 = Image28
Image5 = Image26
Image6 = Image27
Image7 = Image21
Image8 = Image31
Image9 = Image23
Image10 = Image18
Image11 = Image19
Image12 = Image22
Image13 = Image24
Image14 = Image29
Image15 = Image25
Image16 = Image17
GoTo ex
End If
​
 
A

ahmadfononi

معاونت انجمن
If N = 3 Then
Image1 = Image32
Image2 = Image31
Image3 = Image30
Image4 = Image29
Image5 = Image28
Image6 = Image27
Image7 = Image26
Image8 = Image25
Image9 = Image24
Image10 = Image23
Image11 = Image22
Image12 = Image21
Image13 = Image18
Image14 = Image19
Image15 = Image20
Image16 = Image17
GoTo ex
End If
If N = 4 Then
Image1 = Image22
Image2 = Image20
Image3 = Image30
Image4 = Image21
Image5 = Image31
Image6 = Image29
Image7 = Image25
Image8 = Image32
Image9 = Image27
Image10 = Image19
Image11 = Image23
Image12 = Image18
Image13 = Image26
Image14 = Image24
Image15 = Image28
Image16 = Image17
GoTo ex
End If
If N = 5 Then
Image1 = Image20
Image2 = Image21
Image3 = Image23
Image4 = Image27
Image5 = Image26
Image6 = Image30
Image7 = Image32
Image8 = Image31
Image9 = Image19
Image10 = Image25
Image11 = Image24
Image12 = Image29
Image13 = Image18
Image14 = Image28
Image15 = Image22
Image16 = Image17
GoTo ex
End If
If N = 6 Then
Image1 = Image24
Image2 = Image23
Image3 = Image21
Image4 = Image25
Image5 = Image20
Image6 = Image32
Image7 = Image27
Image8 = Image30
Image9 = Image18
Image10 = Image19
Image11 = Image29
Image12 = Image28
Image13 = Image31
Image14 = Image22
Image15 = Image26
Image16 = Image17
GoTo ex
End If
If N = 7 Then
Image1 = Image25
Image2 = Image30
Image3 = Image19
Image4 = Image21
Image5 = Image22
Image6 = Image18
Image7 = Image23
Image8 = Image26
Image9 = Image31
Image10 = Image24
Image11 = Image27
Image12 = Image29
Image13 = Image28
Image14 = Image20
Image15 = Image32
Image16 = Image17
GoTo ex
End If
If N = 8 Then
Image1 = Image27
Image2 = Image20
Image3 = Image21
Image4 = Image29
Image5 = Image23
Image6 = Image32
Image7 = Image26
Image8 = Image24
Image9 = Image31
Image10 = Image19
Image11 = Image25
Image12 = Image28
Image13 = Image18
Image14 = Image22
Image15 = Image30
Image16 = Image17
GoTo ex
End Ifش​
 
A

ahmadfononi

معاونت انجمن
If N = 9 Then
Image1 = Image22
Image2 = Image27
Image3 = Image25
Image4 = Image20
Image5 = Image18
Image6 = Image21
Image7 = Image29
Image8 = Image19
Image9 = Image24
Image10 = Image32
Image11 = Image30
Image12 = Image28
Image13 = Image23
Image14 = Image31
Image15 = Image26
Image16 = Image17
GoTo ex
End If
If N = 10 Then
Image1 = Image28
Image2 = Image23
Image3 = Image25
Image4 = Image27
Image5 = Image20
Image6 = Image29
Image7 = Image26
Image8 = Image24
Image9 = Image32
Image10 = Image31
Image11 = Image21
Image12 = Image19
Image13 = Image18
Image14 = Image30
Image15 = Image22
Image16 = Image17
GoTo ex
End If
If N = 11 Then
Image1 = Image23
Image2 = Image31
Image3 = Image19
Image4 = Image25
Image5 = Image32
Image6 = Image28
Image7 = Image27
Image8 = Image24
Image9 = Image30
Image10 = Image20
Image11 = Image18
Image12 = Image22
Image13 = Image26
Image14 = Image29
Image15 = Image21
Image16 = Image17
GoTo ex
End If
If N = 12 Then
Image1 = Image20
Image2 = Image23
Image3 = Image32
Image4 = Image27
Image5 = Image25
Image6 = Image30
Image7 = Image18
Image8 = Image29
Image9 = Image21
Image10 = Image26
Image11 = Image22
Image12 = Image19
Image13 = Image24
Image14 = Image31
Image15 = Image28
Image16 = Image17
GoTo ex
End If​
 
A

ahmadfononi

معاونت انجمن
If N = 13 Then
Image1 = Image26
Image2 = Image24
Image3 = Image21
Image4 = Image20
Image5 = Image18
Image6 = Image30
Image7 = Image23
Image8 = Image29
Image9 = Image31
Image10 = Image25
Image11 = Image32
Image12 = Image28
Image13 = Image19
Image14 = Image27
Image15 = Image22
Image16 = Image17
GoTo ex
End If
If N = 14 Then
Image1 = Image21
Image2 = Image23
Image3 = Image19
Image4 = Image32
Image5 = Image18
Image6 = Image24
Image7 = Image25
Image8 = Image31
Image9 = Image22
Image10 = Image27
Image11 = Image30
Image12 = Image20
Image13 = Image26
Image14 = Image29
Image15 = Image28
Image16 = Image17
GoTo ex
End If
If N = 15 Then
Image1 = Image29
Image2 = Image21
Image3 = Image19
Image4 = Image24
Image5 = Image26
Image6 = Image23
Image7 = Image30
Image8 = Image32
Image9 = Image27
Image10 = Image18
Image11 = Image20
Image12 = Image31
Image13 = Image28
Image14 = Image25
Image15 = Image22
Image16 = Image17
GoTo ex
End If
If N = 16 Then
Image1 = Image19
Image2 = Image23
Image3 = Image25
Image4 = Image27
Image5 = Image21
Image6 = Image20
Image7 = Image30
Image8 = Image31
Image9 = Image26
Image10 = Image18
Image11 = Image32
Image12 = Image24
Image13 = Image28
Image14 = Image22
Image15 = Image29
Image16 = Image17
GoTo ex
End If
If N = 17 Then
Image1 = Image31
Image2 = Image23
Image3 = Image28
Image4 = Image18
Image5 = Image20
Image6 = Image21
Image7 = Image25
Image8 = Image32
Image9 = Image19
Image10 = Image29
Image11 = Image27
Image12 = Image24
Image13 = Image26
Image14 = Image22
Image15 = Image30
Image16 = Image17
GoTo ex
End If
If N = 18 Then
Image1 = Image30
Image2 = Image18
Image3 = Image21
Image4 = Image19
Image5 = Image23
Image6 = Image28
Image7 = Image32
Image8 = Image27
Image9 = Image26
Image10 = Image31
Image11 = Image29
Image12 = Image22
Image13 = Image25
Image14 = Image24
Image15 = Image20
Image16 = Image17
GoTo ex
End If
If N = 19 Then
Image1 = Image18
Image2 = Image32
Image3 = Image19
Image4 = Image31
Image5 = Image20
Image6 = Image30
Image7 = Image21
Image8 = Image29
Image9 = Image22
Image10 = Image28
Image11 = Image23
Image12 = Image27
Image13 = Image24
Image14 = Image25
Image15 = Image26
Image16 = Image17
GoTo ex
End If​
 
A

ahmadfononi

معاونت انجمن
If N = 20 Then
Image1 = Image20
Image2 = Image30
Image3 = Image18
Image4 = Image21
Image5 = Image24
Image6 = Image32
Image7 = Image22
Image8 = Image31
Image9 = Image19
Image10 = Image25
Image11 = Image29
Image12 = Image27
Image13 = Image26
Image14 = Image23
Image15 = Image28
Image16 = Image17
GoTo ex
End If

If N = 21 Then
Image1 = Image23
Image2 = Image32
Image3 = Image24
Image4 = Image28
Image5 = Image18
Image6 = Image25
Image7 = Image29
Image8 = Image20
Image9 = Image30
Image10 = Image21
Image11 = Image22
Image12 = Image19
Image13 = Image27
Image14 = Image26
Image15 = Image31
Image16 = Image17
GoTo ex
End If
If N = 22 Then
Image1 = Image18
Image2 = Image22
Image3 = Image26
Image4 = Image30
Image5 = Image19
Image6 = Image23
Image7 = Image27
Image8 = Image31
Image9 = Image20
Image10 = Image24
Image11 = Image28
Image12 = Image32
Image13 = Image21
Image14 = Image25
Image15 = Image29
Image16 = Image17
GoTo ex
End If
If N = 23 Then
Image1 = Image22
Image2 = Image31
Image3 = Image21
Image4 = Image24
Image5 = Image18
Image6 = Image23
Image7 = Image32
Image8 = Image29
Image9 = Image26
Image10 = Image25
Image11 = Image19
Image12 = Image27
Image13 = Image20
Image14 = Image30
Image15 = Image28
Image16 = Image17
GoTo ex
End If​
 
A

ahmadfononi

معاونت انجمن
If N = 24 Then
Image1 = Image27
Image2 = Image25
Image3 = Image28
Image4 = Image24
Image5 = Image30
Image6 = Image19
Image7 = Image32
Image8 = Image23
Image9 = Image21
Image10 = Image20
Image11 = Image31
Image12 = Image18
Image13 = Image26
Image14 = Image29
Image15 = Image22
Image16 = Image17
GoTo ex
End If
If N = 25 Then
Image1 = Image30
Image2 = Image29
Image3 = Image21
Image4 = Image28
Image5 = Image19
Image6 = Image26
Image7 = Image24
Image8 = Image20
Image9 = Image31
Image10 = Image18
Image11 = Image32
Image12 = Image25
Image13 = Image22
Image14 = Image23
Image15 = Image27
Image16 = Image17
GoTo ex
End If
If N = 26 Then
Image1 = Image19
Image2 = Image23
Image3 = Image29
Image4 = Image20
Image5 = Image31
Image6 = Image26
Image7 = Image30
Image8 = Image28
Image9 = Image24
Image10 = Image22
Image11 = Image27
Image12 = Image21
Image13 = Image18
Image14 = Image32
Image15 = Image25
Image16 = Image17
GoTo ex
End If
If N = 27 Then
Image1 = Image27
Image2 = Image29
Image3 = Image25
Image4 = Image24
Image5 = Image26
Image6 = Image18
Image7 = Image19
Image8 = Image30
Image9 = Image23
Image10 = Image20
Image11 = Image21
Image12 = Image28
Image13 = Image32
Image14 = Image31
Image15 = Image22
Image16 = Image17
GoTo ex
End If
If N = 28 Then
Image1 = Image24
Image2 = Image20
Image3 = Image21
Image4 = Image30
Image5 = Image32
Image6 = Image23
Image7 = Image22
Image8 = Image28
Image9 = Image19
Image10 = Image25
Image11 = Image31
Image12 = Image27
Image13 = Image29
Image14 = Image26
Image15 = Image18
Image16 = Image17
GoTo ex
End If
If N = 29 Then
Image1 = Image32
Image2 = Image20
Image3 = Image19
Image4 = Image18
Image5 = Image31
Image6 = Image26
Image7 = Image22
Image8 = Image21
Image9 = Image30
Image10 = Image23
Image11 = Image25
Image12 = Image29
Image13 = Image28
Image14 = Image27
Image15 = Image24
Image16 = Image17
GoTo ex
End If​
 
A

ahmadfononi

معاونت انجمن
If N = 30 Then
Image1 = Image28
Image2 = Image31
Image3 = Image29
Image4 = Image27
Image5 = Image30
Image6 = Image23
Image7 = Image18
Image8 = Image32
Image9 = Image21
Image10 = Image24
Image11 = Image22
Image12 = Image26
Image13 = Image20
Image14 = Image25
Image15 = Image19
Image16 = Image17
GoTo ex
End If
If N = 31 Then
Image1 = Image26
Image2 = Image32
Image3 = Image28
Image4 = Image29
Image5 = Image24
Image6 = Image23
Image7 = Image20
Image8 = Image27
Image9 = Image19
Image10 = Image22
Image11 = Image18
Image12 = Image21
Image13 = Image25
Image14 = Image30
Image15 = Image31
Image16 = Image17
GoTo ex
End If
If N = 32 Then
Image1 = Image25
Image2 = Image30
Image3 = Image28
Image4 = Image20
Image5 = Image19
Image6 = Image24
Image7 = Image26
Image8 = Image29
Image9 = Image23
Image10 = Image22
Image11 = Image27
Image12 = Image31
Image13 = Image32
Image14 = Image18
Image15 = Image21
Image16 = Image17
GoTo ex
End If
If N = 33 Then
Image1 = Image29
Image2 = Image18
Image3 = Image31
Image4 = Image26
Image5 = Image24
Image6 = Image25
Image7 = Image32
Image8 = Image20
Image9 = Image19
Image10 = Image23
Image11 = Image28
Image12 = Image27
Image13 = Image22
Image14 = Image21
Image15 = Image30
Image16 = Image17
GoTo ex
End If
If N = 34 Then
Image1 = Image31
Image2 = Image22
Image3 = Image25
Image4 = Image32
Image5 = Image28
Image6 = Image21
Image7 = Image18
Image8 = Image20
Image9 = Image23
Image10 = Image26
Image11 = Image29
Image12 = Image19
Image13 = Image27
Image14 = Image30
Image15 = Image24
Image16 = Image17
GoTo ex
End If​
 
A

ahmadfononi

معاونت انجمن
If N = 35 Then
Image1 = Image21
Image2 = Image26
Image3 = Image23
Image4 = Image19
Image5 = Image25
Image6 = Image24
Image7 = Image30
Image8 = Image18
Image9 = Image31
Image10 = Image32
Image11 = Image20
Image12 = Image27
Image13 = Image28
Image14 = Image22
Image15 = Image29
Image16 = Image17
GoTo ex
End If
If N = 36 Then
Image1 = Image29
Image2 = Image24
Image3 = Image18
Image4 = Image22
Image5 = Image30
Image6 = Image32
Image7 = Image31
Image8 = Image20
Image9 = Image19
Image10 = Image25
Image11 = Image27
Image12 = Image28
Image13 = Image23
Image14 = Image26
Image15 = Image21
Image16 = Image17
GoTo ex
End If
If N = 37 Then
Image1 = Image19
Image2 = Image23
Image3 = Image25
Image4 = Image27
Image5 = Image22
Image6 = Image18
Image7 = Image24
Image8 = Image26
Image9 = Image29
Image10 = Image28
Image11 = Image30
Image12 = Image31
Image13 = Image21
Image14 = Image32
Image15 = Image20
Image16 = Image17
GoTo ex
End If
If N = 38 Then
Image1 = Image18
Image2 = Image19
Image3 = Image22
Image4 = Image23
Image5 = Image20
Image6 = Image21
Image7 = Image24
Image8 = Image25
Image9 = Image29
Image10 = Image32
Image11 = Image31
Image12 = Image30
Image13 = Image28
Image14 = Image27
Image15 = Image26
Image16 = Image17
GoTo ex
End If
If N = 39 Then
Image1 = Image22
Image2 = Image32
Image3 = Image28
Image4 = Image25
Image5 = Image18
Image6 = Image21
Image7 = Image29
Image8 = Image20
Image9 = Image31
Image10 = Image26
Image11 = Image30
Image12 = Image19
Image13 = Image24
Image14 = Image27
Image15 = Image23
Image16 = Image17
GoTo ex
End If
If N = 40 Then
Image1 = Image30
Image2 = Image26
Image3 = Image21
Image4 = Image20
Image5 = Image22
Image6 = Image31
Image7 = Image24
Image8 = Image29
Image9 = Image18
Image10 = Image25
Image11 = Image23
Image12 = Image32
Image13 = Image27
Image14 = Image28
Image15 = Image19
Image16 = Image17
GoTo ex
End If
If N = 41 Then
Image1 = Image32
Image2 = Image20
Image3 = Image18
Image4 = Image28
Image5 = Image30
Image6 = Image26
Image7 = Image24
Image8 = Image19
Image9 = Image25
Image10 = Image29
Image11 = Image27
Image12 = Image21
Image13 = Image22
Image14 = Image31
Image15 = Image23
Image16 = Image17
GoTo ex
End If​
 
A

ahmadfononi

معاونت انجمن
If N = 42 Then
Image1 = Image28
Image2 = Image27
Image3 = Image23
Image4 = Image24
Image5 = Image29
Image6 = Image18
Image7 = Image21
Image8 = Image30
Image9 = Image20
Image10 = Image25
Image11 = Image31
Image12 = Image26
Image13 = Image32
Image14 = Image22
Image15 = Image19
Image16 = Image17
GoTo ex
End If
If N = 43 Then
Image1 = Image30
Image2 = Image21
Image3 = Image24
Image4 = Image32
Image5 = Image22
Image6 = Image26
Image7 = Image19
Image8 = Image25
Image9 = Image29
Image10 = Image28
Image11 = Image20
Image12 = Image27
Image13 = Image23
Image14 = Image18
Image15 = Image31
Image16 = Image17
GoTo ex
End If
If N = 44 Then
Image1 = Image29
Image2 = Image28
Image3 = Image18
Image4 = Image24
Image5 = Image26
Image6 = Image22
Image7 = Image23
Image8 = Image30
Image9 = Image25
Image10 = Image21
Image11 = Image19
Image12 = Image32
Image13 = Image27
Image14 = Image20
Image15 = Image31
Image16 = Image17
GoTo ex
End If
If N = 45 Then
Image1 = Image19
Image2 = Image20
Image3 = Image29
Image4 = Image25
Image5 = Image23
Image6 = Image21
Image7 = Image18
Image8 = Image32
Image9 = Image31
Image10 = Image28
Image11 = Image30
Image12 = Image22
Image13 = Image26
Image14 = Image24
Image15 = Image27
Image16 = Image17
GoTo ex
End If
If N = 46 Then
Image1 = Image23
Image2 = Image24
Image3 = Image28
Image4 = Image20
Image5 = Image32
Image6 = Image25
Image7 = Image29
Image8 = Image19
Image9 = Image27
Image10 = Image26
Image11 = Image31
Image12 = Image22
Image13 = Image21
Image14 = Image30
Image15 = Image18
Image16 = Image17
GoTo ex
End If​
 
A

ahmadfononi

معاونت انجمن
If N = 47 Then
Image1 = Image25
Image2 = Image20
Image3 = Image21
Image4 = Image31
Image5 = Image30
Image6 = Image26
Image7 = Image29
Image8 = Image23
Image9 = Image28
Image10 = Image18
Image11 = Image24
Image12 = Image27
Image13 = Image22
Image14 = Image32
Image15 = Image19
Image16 = Image17
GoTo ex
End If
If N = 48 Then
Image1 = Image22
Image2 = Image29
Image3 = Image28
Image4 = Image25
Image5 = Image30
Image6 = Image20
Image7 = Image32
Image8 = Image19
Image9 = Image21
Image10 = Image18
Image11 = Image23
Image12 = Image31
Image13 = Image24
Image14 = Image26
Image15 = Image27
Image16 = Image17
GoTo ex
End If
If N = 49 Then
Image1 = Image27
Image2 = Image20
Image3 = Image19
Image4 = Image18
Image5 = Image32
Image6 = Image25
Image7 = Image23
Image8 = Image29
Image9 = Image31
Image10 = Image22
Image11 = Image24
Image12 = Image26
Image13 = Image30
Image14 = Image21
Image15 = Image28
Image16 = Image17
GoTo ex
End If
ex:
End Sub
Private Sub hlp2_Click()
fil.Enabled = False
hlp.Enabled = False
End Sub​
 
A

ahmadfononi

معاونت انجمن
Private Sub Image35_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
fil.Enabled = True
bgs.Enabled = True
hlp.Enabled = True
Image35.Visible = False
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image5 = Image17 Then
Image5 = Image1
Image1 = Image17
End If
If Image2 = Image17 Then
Image2 = Image1
Image1 = Image17
End If
Win
End Sub
Private Sub Image10_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image14 = Image17 Then
Image14 = Image10
Image10 = Image17
End If
If Image11 = Image17 Then
Image11 = Image10
Image10 = Image17
End If
If Image9 = Image17 Then
Image9 = Image10
Image10 = Image17
End If
If Image6 = Image17 Then
Image6 = Image10
Image10 = Image17
End If
Win
End Sub
Private Sub Image11_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image15 = Image17 Then
Image15 = Image11
Image11 = Image17
End If
If Image12 = Image17 Then
Image12 = Image11
Image11 = Image17
End If
If Image10 = Image17 Then
Image10 = Image11
Image11 = Image17
End If
If Image7 = Image17 Then
Image7 = Image11
Image11 = Image17
End If
Win
End Sub
Private Sub Image12_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image16 = Image17 Then
Image16 = Image12
Image12 = Image17
End If
If Image8 = Image17 Then
Image8 = Image12
Image12 = Image17
End If
If Image11 = Image17 Then
Image11 = Image12
Image12 = Image17
End If
Win
End Sub​
 
A

ahmadfononi

معاونت انجمن
Private Sub Image13_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image14 = Image17 Then
Image14 = Image13
Image13 = Image17
End If
If Image9 = Image17 Then
Image9 = Image13
Image13 = Image17
End If
Win
End Sub
Private Sub Image14_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image15 = Image17 Then
Image15 = Image14
Image14 = Image17
End If
If Image10 = Image17 Then
Image10 = Image14
Image14 = Image17
End If
If Image13 = Image17 Then
Image13 = Image14
Image14 = Image17
End If
Win
End Sub
Private Sub Image15_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image16 = Image17 Then
Image16 = Image15
Image15 = Image17
End If
If Image11 = Image17 Then
Image11 = Image15
Image15 = Image17
End If
If Image14 = Image17 Then
Image14 = Image15
Image15 = Image17
End If
Win
End Sub
Private Sub Image16_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image15 = Image17 Then
Image15 = Image16
Image16 = Image17
End If
If Image12 = Image17 Then
Image12 = Image16
Image16 = Image17
End If
Win
End Sub
Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image6 = Image17 Then
Image6 = Image2
Image2 = Image17
End If
If Image1 = Image17 Then
Image1 = Image2
Image2 = Image17
End If​
 
A

ahmadfononi

معاونت انجمن
If Image3 = Image17 Then
Image3 = Image2
Image2 = Image17
End If
Win
End Sub
Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image7 = Image17 Then
Image7 = Image3
Image3 = Image17
End If
If Image2 = Image17 Then
Image2 = Image3
Image3 = Image17
End If
If Image4 = Image17 Then
Image4 = Image3
Image3 = Image17
End If
Win
End Sub
Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image8 = Image17 Then
Image8 = Image4
Image4 = Image17
End If
If Image3 = Image17 Then
Image3 = Image4
Image4 = Image17
End If
Win
End Sub
Private Sub Image5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image9 = Image17 Then
Image9 = Image5
Image5 = Image17
End If
If Image6 = Image17 Then
Image6 = Image5
Image5 = Image17
End If
If Image1 = Image17 Then
Image1 = Image5
Image5 = Image17
End If
Win
End Sub

Private Sub Image6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image10 = Image17 Then
Image10 = Image6
Image6 = Image17
End If
If Image5 = Image17 Then
Image5 = Image6
Image6 = Image17
End If​
 
A

ahmadfononi

معاونت انجمن
If Image7 = Image17 Then
Image7 = Image6
Image6 = Image17
End If
If Image2 = Image17 Then
Image2 = Image6
Image6 = Image17
End If
Win
End Sub

Private Sub Image7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image11 = Image17 Then
Image11 = Image7
Image7 = Image17
End If
If Image6 = Image17 Then
Image6 = Image7
Image7 = Image17
End If
If Image8 = Image17 Then
Image8 = Image7
Image7 = Image17
End If
If Image3 = Image17 Then
Image3 = Image7
Image7 = Image17
End If
Win
End Sub

Private Sub Image8_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image12 = Image17 Then
Image12 = Image8
Image8 = Image17
End If
If Image7 = Image17 Then
Image7 = Image8
Image8 = Image17
End If
If Image4 = Image17 Then
Image4 = Image8
Image8 = Image17
End If
Win
End Sub
Private Sub Image9_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image13 = Image17 Then
Image13 = Image9
Image9 = Image17
End If
If Image10 = Image17 Then
Image10 = Image9
Image9 = Image17
End If​
 
A

ahmadfononi

معاونت انجمن
If Image5 = Image17 Then
Image5 = Image9
Image9 = Image17
End If
Win
End Sub
Private Sub sup_Click()
Image1.Enabled = True
Image2.Enabled = True
Image3.Enabled = True
Image4.Enabled = True
Image5.Enabled = True
Image6.Enabled = True
Image7.Enabled = True
Image8.Enabled = True
Image9.Enabled = True
Image10.Enabled = True
Image11.Enabled = True
Image12.Enabled = True
Image13.Enabled = True
Image14.Enabled = True
Image15.Enabled = True
Image16.Enabled = True
Image1 = Image24
Image2 = Image32
Image3 = Image25
Image4 = Image28
Image5 = Image18
Image6 = Image27
Image7 = Image30
Image8 = Image20
Image9 = Image21
Image10 = Image26
Image11 = Image29
Image12 = Image23
Image13 = Image19
Image14 = Image31
Image15 = Image22
Image16 = Image17
End Sub
Private Sub Timer1_Timer()
w = w + 1: If w = 15 Then w = 0
If w = 1 Then Caption = ""
If w = 2 Then Caption = " G"
If w = 3 Then Caption = " Ga"
If w = 4 Then Caption = " Gam"
If w = 5 Then Caption = " Game"
If w = 6 Then Caption = " Game#"
If w = 7 Then Caption = " Game#1"
If w = 8 Then Caption = "Game#15"
If w = 9 Then Caption = "ame#15"
If w = 10 Then Caption = "me#15"
If w = 11 Then Caption = "e#15"
If w = 12 Then Caption = "#15"
If w = 13 Then Caption = "15"
If w = 14 Then Caption = "5"
If w = 0 Then Caption = ""
End Sub
​
 
برای ارسال پاسخ شما باید وارد سیستم شوید.
بالا