Private Sub ResetPicturesPositions()
'ایجاد بازی جدید
pic1.Location = lbl8.Location
pic2.Location = lbl7.Location
pic3.Location = lbl6.Location
pic4.Location = lbl5.Location
pic5.Location = lbl4.Location
pic6.Location = lbl3.Location
pic7.Location = lbl2.Location
pic8.Location = lbl1.Location
pic1.Visible = True
pic2.Visible = True
pic3.Visible = True
pic4.Visible = True
pic5.Visible = True
pic6.Visible = True
pic7.Visible = True
pic8.Visible = True
lbl1.Tag = "0"
lbl2.Tag = "0"
lbl3.Tag = "0"
lbl4.Tag = "0"
lbl5.Tag = "0"
lbl6.Tag = "0"
lbl7.Tag = "0"
lbl8.Tag = "0"
lbl9.Tag = "1"
PicHelp.Left = (lbl3.Left + lbl3.Width) + 10
lblSecond.Text = "0"
Timer1.Start()
End Sub

Private Sub pic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles pic1.Click, pic2.Click, pic3.Click, pic4.Click, pic5.Click, pic6.Click, pic7.Click, pic8.Click
'------------------------------------
'حركت تصاوير به جاي خالي
Dim nullLabel As Label = ReturnNullLabel()
If IsPicCanMove(sender) = True Then
playMoveSound("WHOOSH.WAV")
nullLabel.Tag = "0"
Dim AcoardingLabel As Label = ReturnAcoardinLabel(sender)
AcoardingLabel.Tag = "1"
sender.location = nullLabel.Location
End If
IsGameWin()
'--------------------------------
End Sub

Private Function ReturnNullLabel() As Label
'کنترل برچسب خالي را برميگرداند
If lbl1.Tag = 1 Then
Return lbl1
Exit Function
End If
'--------------------------
If lbl2.Tag = 1 Then
Return lbl2
Exit Function
End If
'--------------------------
If lbl3.Tag = 1 Then
Return lbl3
Exit Function
End If
'--------------------------
If lbl4.Tag = 1 Then
Return lbl4
Exit Function
End If
'--------------------------
If lbl5.Tag = 1 Then
Return lbl5
Exit Function
End If
'--------------------------
If lbl6.Tag = 1 Then
Return lbl6
Exit Function
End If
'--------------------------
If lbl7.Tag = 1 Then
Return lbl7
Exit Function
End If
'--------------------------
If lbl8.Tag = 1 Then
Return lbl8
Exit Function
End If
'--------------------------
If lbl9.Tag = 1 Then
Return lbl9
Exit Function
End If
'--------------------------
Return Nothing
End Function

Private Function IsPicCanMove(ByVal picName As PictureBox) As Boolean
'اين روال نام كنترل تصوير را مي گيرد و مشخص مي كند كه آيا مي تواند حركت كند يا نه
Dim acordingLabel As Label
acordingLabel = ReturnAcoardinLabel(picName) 'برچسب فعال
Dim NullLabel As Label = ReturnNullLabel() 'برچسب خالي
Select Case acordingLabel.Name
Case lbl1.Name '2 , 4
'----------------------------------
If NullLabel.Name = lbl2.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl4.Name Then
Return True
Exit Function
End If
'----------------------------------
Case lbl2.Name '1,3,5
'----------------------------------
If NullLabel.Name = lbl1.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl3.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl5.Name Then
Return True
Exit Function
End If
'----------------------------------
Case lbl3.Name '2,6
'----------------------------------
If NullLabel.Name = lbl2.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl6.Name Then
Return True
Exit Function
End If
'----------------------------------
Case lbl4.Name '1,5,7
'----------------------------------
If NullLabel.Name = lbl1.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl5.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl7.Name Then
Return True
Exit Function
End If
'----------------------------------
Case lbl5.Name '2,4,6,8
'----------------------------------
If NullLabel.Name = lbl2.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl4.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl6.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl8.Name Then
Return True
Exit Function
End If
'----------------------------------
Case lbl6.Name '5,3,9
'----------------------------------
If NullLabel.Name = lbl5.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl3.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl9.Name Then
Return True
Exit Function
End If
'----------------------------------
Case lbl7.Name '8,4
'----------------------------------
If NullLabel.Name = lbl8.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl4.Name Then
Return True
Exit Function
End If
'----------------------------------
Case lbl8.Name '7,5,9
'----------------------------------
If NullLabel.Name = lbl7.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl5.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl9.Name Then
Return True
Exit Function
End If
'----------------------------------
Case lbl9.Name '8,6
'----------------------------------
If NullLabel.Name = lbl8.Name Then
Return True
Exit Function
End If
'----------------------------------
If NullLabel.Name = lbl6.Name Then
Return True
Exit Function
End If
'----------------------------------
End Select
'------------------------------------
Return False
End Function

Private Sub playMoveSound(ByVal SoundFileName As String)
'پخش اهنگ موقع حركت
Try
My.Computer.Audio.Play(Application.StartupPath & "\Snd\" & SoundFileName, AudioPlayMode.WaitToComplete)
Catch ex As Exception

End Try
End Sub

Private Sub IsGameWin()
If pic1.Location = lbl1.Location And pic2.Location = lbl2.Location And _
pic3.Location = lbl3.Location And pic4.Location = lbl4.Location _
And pic5.Location = lbl5.Location And pic6.Location = lbl6.Location _
And pic7.Location = lbl7.Location And pic8.Location = lbl8.Location Then
'----------------------------------
cboPics.Enabled = False
PicHelp.Location = lbl1.Location
PicHelp.BringToFront()
Timer1.Stop()
Application.DoEvents()
playMoveSound("LoopyMusic.wav")
cboPics.Enabled = True
End If
End Sub