Const shufflecount = 30

Dim hole As Integer

Private Sub cmdpiece_Click(Index As Integer)

If (Index = hole + 1) And (hole Mod 4 <> 3) Then
    movepiece Index
ElseIf (Index = hole - 1) And (hole Mod 4 <> 0) Then
    movepiece Index
ElseIf Index = hole + 4 Then
    movepiece Index
ElseIf Index = hole - 4 Then
    movepiece Index
End If

If iscomplete Then
    MsgBox "수고하셨습니다.", , "15퍼즐"
    shuffle shufflecount
End If
End Sub

Private Sub Form_Load()
Randomize
hole = 15

shuffle shufflecount

End Sub

Function iscomplete()

    complete = True
    For i = 0 To 14
        If Val(cmdpiece(i).Caption) <> i + 1 Then
            complete = False
        End If
    Next
    iscomplete = complete
   
End Function

Sub movepiece(piece As Integer)
    cmdpiece(hole).Caption = cmdpiece(piece).Caption
    cmdpiece(hole).Visible = True
    cmdpiece(piece).Visible = False
    hole = piece
End Sub

Sub shuffle(count)

    lastn = -1
    For i = 1 To count
        n = Int(Rnd(1) * 4)
        Select Case n
            Case 0
             If hole > 3 And lastn <> 2 Then
                movepiece hole - 4
                lastn = 0
            Else
                i = i - 1
            End If
        Case 1
            If hole Mod 4 <> 0 And lastn <> 3 Then
                movepiece hole - 1
                lastn = 1
            Else
             i = i - 1
            End If
        Case 2
         If hole < 12 And lastn <> 0 Then
            movepiece hole + 4
            lastn = 2
            Else
             i = i - 1
            End If
        Case 3
         If hole Mod 4 <> 3 And lastn <> 1 Then
            movepiece hole + 1
            lastn = 3
        Else
         i = i - 1
         End If
    End Select
    Next
   
           
End Sub

그림조각맞추기 4*4하고잇슴둥
조각 커맨드컨트롤로 나눳슴둥
근데 이상하게 조각을 클릭해서 빈칸으로 옴기면 그 조각이 빈칸내용 그림이 채워져용
예를들어 1번조각 조각을 2번칸에 옴기면 1번그림이 2번그림으로 바낀다는 말씀
횽들 도와줘 제발 어떻게 해야 나 살아남을수 잇을까..ㅠ.ㅠ
자세히좀 알려주세요