急急急！用vb做拼图游戏

Option Explicit
Dim j As Integer
Dim step As Integer
Dim n As Integer

Private Sub Command1_Click()
PictureClip1.Picture = Picture1.Picture

Dim i As Single

For i = 0 To (n - 1)

Image1(i).Enabled = True '使Image1响应鼠标事件

Image1(i).Picture = PictureClip1.GraphicCell(i) '让图片的8个单元分别赋予 8个Image控件

Next

Image1(n - 1).Picture = LoadPicture("") '空位用于移动图片

End Sub

Private Sub Command2_Click()
CommonDialog1.DialogTitle = "打开"
CommonDialog1.Filter = "所有文件(*.*) "
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

Private Sub Text1_Change()
Dim k As Integer
k = Text1.Text
If 0 < k < 11 Then
PictureClip1.Rows = k
PictureClip1.Cols = k
End If
End Sub

Private Sub Form_Load()
Dim i As Integer

用VB做查找代码,急急急~ 急急急急急！！谁知道用Authorware怎么制作拼图游戏么？？详细点！谢谢了 急求拼图游戏（Authorware做的） 急急急,VB怎么做 怎样用VB做系统哟!!急急急!!!! 难做的vb 急急急！！！ 如何用VB制作拼图游戏? 如何用VB编写拼图游戏？ 拼图游戏 怎样用Authorware做“拼图游戏”软件？