Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / simple6a / form1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1999-09-22 | 41.3 KB | 1,256 lines

VERSION 5.00 Begin VB.Form Form1 BorderStyle = 1 'Fixed Single Caption = "EZMove Puzzle!" ClientHeight = 5805 ClientLeft = 45 ClientTop = 645 ClientWidth = 7125 ClipControls = 0 'False Icon = "Form1.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False Moveable = 0 'False ScaleHeight = 5805 ScaleWidth = 7125 Begin VB.PictureBox Picture2 AutoRedraw = -1 'True BackColor = &H8000000C& Height = 5655 Left = 0 ScaleHeight = 5595 ScaleWidth = 6915 TabIndex = 0 Top = 0 Width = 6975 Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 0 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 81 Top = 0 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 1 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 80 Top = 120 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 2 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 79 Top = 240 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 3 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 78 Top = 360 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 4 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 77 Top = 480 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 5 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 76 Top = 600 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 6 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 75 Top = 720 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 7 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 74 Top = 840 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 8 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 73 Top = 960 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 9 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 72 Top = 1080 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 10 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 71 Top = 1200 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 11 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 70 Top = 1320 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 12 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 69 Top = 1440 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 13 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 68 Top = 1560 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 14 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 67 Top = 1680 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 15 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 66 Top = 1800 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 16 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 65 Top = 1920 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 17 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 64 Top = 2040 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 18 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 63 Top = 2160 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 19 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 62 Top = 2280 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 20 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 61 Top = 2400 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 21 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 60 Top = 2520 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 22 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 59 Top = 2640 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 23 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 58 Top = 2760 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 24 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 57 Top = 2880 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 25 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 56 Top = 3000 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 26 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 55 Top = 3120 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 27 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 54 Top = 3240 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 28 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 53 Top = 3360 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 29 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 52 Top = 3480 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 30 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 51 Top = 3600 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 31 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 50 Top = 3720 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 32 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 49 Top = 3840 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 33 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 48 Top = 3960 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 34 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 47 Top = 4080 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 35 Left = 0 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 46 Top = 4200 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 36 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 45 Top = 0 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 37 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 44 Top = 120 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 38 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 43 Top = 240 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 39 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 42 Top = 360 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 40 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 41 Top = 480 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 41 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 40 Top = 600 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 42 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 39 Top = 720 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 43 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 38 Top = 840 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 44 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 37 Top = 960 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 45 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 36 Top = 1080 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 46 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 35 Top = 1200 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 47 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 34 Top = 1320 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 48 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 33 Top = 1440 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 49 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 32 Top = 1560 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 50 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 31 Top = 1680 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 51 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 30 Top = 1800 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 52 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 29 Top = 1920 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 53 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 28 Top = 2040 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 54 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 27 Top = 2160 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 55 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 26 Top = 2280 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 56 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 25 Top = 2400 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 57 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 24 Top = 2520 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 58 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 23 Top = 2640 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 59 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 22 Top = 2760 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 60 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 21 Top = 2880 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 61 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 20 Top = 3000 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 62 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 19 Top = 3120 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 63 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 18 Top = 3240 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 64 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 17 Top = 3360 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 65 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 16 Top = 3480 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 66 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 15 Top = 3600 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 67 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 14 Top = 3720 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 68 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 13 Top = 3840 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 69 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 12 Top = 3960 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 70 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 11 Top = 4080 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 71 Left = 2040 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 10 Top = 4200 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 72 Left = 4080 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 9 Top = 0 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 73 Left = 4080 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 8 Top = 120 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 74 Left = 4080 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 7 Top = 240 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 75 Left = 4080 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 6 Top = 360 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 76 Left = 4080 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 5 Top = 480 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 77 Left = 4080 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 4 Top = 600 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 78 Left = 4080 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 3 Top = 720 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 79 Left = 4080 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 2 Top = 840 Visible = 0 'False Width = 1935 End Begin VB.PictureBox Picture1 AutoRedraw = -1 'True Height = 1215 Index = 80 Left = 4080 MousePointer = 5 'Size ScaleHeight = 1155 ScaleWidth = 1875 TabIndex = 1 Top = 960 Visible = 0 'False Width = 1935 End End Begin VB.Menu mnuFile Caption = "&File" Begin VB.Menu mnuNew Caption = "&New" End Begin VB.Menu mnuShuffle Caption = "&Shuffle" End Begin VB.Menu mnuLoadImage Caption = "Load &Image" End Begin VB.Menu Space1 Caption = "-" End Begin VB.Menu mnuExit Caption = "&Exit" End End Begin VB.Menu Options Caption = "&Options" Begin VB.Menu Op Caption = "4x4" Index = 0 End Begin VB.Menu Op Caption = "4x5" Checked = -1 'True Index = 1 End Begin VB.Menu Op Caption = "5x5" Index = 2 End Begin VB.Menu Op Caption = "6x6" Index = 3 End Begin VB.Menu Op Caption = "7x7" Index = 4 End Begin VB.Menu Op Caption = "8x8" Index = 5 End Begin VB.Menu Op Caption = "9x9" Index = 6 End End Begin VB.Menu mnuAbout Caption = "&About" End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False 'Genetal Variable Declaration Private X1 As Integer, Y1 As Integer Private Sub mnuAbout_Click() 'Generate a Standard About Message Box MsgBox "Programmed by Pedro Lamas" & vbCrLf & "Copyright 1997-1999 Underground Software", vbApplicationModal + vbInformation, "Credits!" End Sub Private Sub mnuShuffle_Click() 'Shuffle the Puzzle Pieces Shuffle End Sub Private Sub mnuLoadImage_Click() 'Show the Image Loader Form Form2.Show 1 End Sub Private Sub Form_Initialize() 'Sqa defines the number of pieces per colomn 'Sqb defines the number of pieces per row Sqa = 4 Sqb = 5 'Move the Main Form so that it is full screen and show it Me.Move 0, 0, Screen.Width, Screen.Height Show 'Make the Picture container be as large as the form, 'but inside it Picture2.Width = Form1.ScaleWidth Picture2.Height = Form1.ScaleHeight 'Do all events, start random number generator and create 'the puzzle by cutting the image in pieces DoEvents Randomize Start End Sub Private Sub Form_Unload(Cancel As Integer) 'End the program End End Sub Private Sub mnuNew_Click() 'Hide the pieces and start again HideAll Start End Sub Private Sub Op_Click(Index As Integer) Dim I As Integer 'For all puzzle size options menu For I = 0 To 6 If I = Index Then 'Check the selected option and update the number of 'pieces per colomn and per row Op(I).Checked = True Sqa = Val(Left(Op(I).Caption, 1)) Sqb = Val(Right(Op(I).Caption, 1)) Else 'uncheck the other options Op(I).Checked = False End If Next I End Sub Private Sub Picture1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) 'make this piece stay on top of the others and save the 'click coordinates Picture1(Index).ZOrder 0 X1 = X Y1 = Y End Sub Private Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) 'If the left button is pressed, If Button = 1 Then 'update the position of this puzzle piece Picture1(Index).Left = Picture1(Index).Left + X - X1 Picture1(Index).Top = Picture1(Index).Top + Y - Y1 End If End Sub Private Sub Picture1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Dim A As Integer, B As Integer, A1 As Integer, B1 As Integer 'Get the piece right position (which is stored in the Tag 'property) 'A is the left and B the is top for the piece A = Val(Left(Picture1(Index).Tag, 7)) B = Val(Right(Picture1(Index).Tag, 7)) 'Now get the actual piece position 'A1 is the left and B1 is the top for the piece A1 = Picture1(Index).Left B1 = Picture1(Index).Top 'If the piece is at a maximum of 300 twips of its right 'position, then put it on its right position If A + 300 > A1 And A - 300 < A1 And B + 300 > B1 And B - 300 < B1 Then Picture1(Index).Left = A Picture1(Index).Top = B End If 'B is now a Flag used to see if all pieces are in their 'correct places B = 1 'Begin scanning the pieces positions For A = 0 To Sqa * Sqb - 1 A1 = Val(Left(Picture1(A).Tag, 7)) B1 = Val(Right(Picture1(A).Tag, 7)) If A1 <> Picture1(A).Left Or B1 <> Picture1(A).Top Then 'If piece A is not on the correct position, then unset 'the Flag B = 0 End If Next A 'If B is equal to 1 then all the pieces are in their 'rigth positions and the puzzle is finished If B = 1 Then 'Hide all pieces, disable the Shuffle menu option HideAll mnuShuffle.Enabled = False 'Now paint the picture as it is Picture2.PaintPicture Form2.Image1.Picture, 0, 0, Form1.ScaleWidth, Form1.ScaleHeight, 0, 0, Form2.Image1.Width, Form2.Image1.Height MsgBox "You have finished the puzzle. Congratulations!", vbApplicationModal + vbInformation, "Congratulations!" End If End Sub Private Sub mnuExit_Click() 'End the game End End Sub