1 Form: FrmNorrkoping
	2 Image Control Arrays: Img_Source, Img_Target
	1 Image: Img_Reset
	1 Icon used in application title bar
	1 Command button: CmdReset

Dim NumCorrect As Integer <-- this is defined in General

Dim Num_Correct As Integer

Private Sub Cmd_Reset_Click()
    For i = 0 To 5
        Img_Target(i).Picture = Img_Reset.Picture
        Img_Source(i).Visible = True
    Next

    Num_Correct = 0

End Sub


Private Sub Form_Load()
    Num_Correct = 0
End Sub

Private Sub Img_Target_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
    If Index = Source.Index Then
        Img_Target(Index).Picture = Source.Picture
        Source.Visible = False
        Num_Correct = Num_Correct + 1
    End If

    If Num_Correct = 6 Then
        Print Num_Correct
        MsgBox "Well Done", vbInformation, "Norrkoping-Sweden"
    End If

End Sub