home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / envelop / envelop.5 / Tools / Arsenal / apps / gamepeg / gamepeg.eto < prev    next >
Text File  |  1996-07-08  |  19KB  |  628 lines
  1. Type PegImage From Image
  2.   Dim PegID As Integer
  3.  
  4.   ' METHODS for object: PegImage
  5.   Sub MouseDown(button, shift As Integer, x,y As Single)
  6.     ' If there is no parent for this object, then don't do anything
  7.     If Not Parent Then Exit Sub
  8.   
  9.     ' If the game has not been started, remove the first peg
  10.     If Not Parent.GameStarted Then 
  11.       Picture = Parent.bmpNoPeg
  12.       Refresh
  13.       Parent.GameStarted = -1
  14.       Parent.lblNotice.Caption = "Game is in progress..."
  15.     End If
  16.   End Sub
  17.  
  18.   Sub HasPeg(peg_count As Integer)
  19.     ' This routine checks to see if there is a peg in the control
  20.     If Not Parent Then Exit Sub
  21.   
  22.     If Picture == Parent.bmpPeg Then 
  23.       peg_count = peg_count + 1
  24.     End If
  25.   
  26.   End Sub
  27.  
  28.   Sub DragAndDrop(source As XferData, x,y As Single, state As OleDropState, effect As OleDropEffect)
  29.     ' If there is no parent for this object, then don't do anything
  30.     If Not Parent Then Exit Sub
  31.   
  32.     ' Image is dropped onto image control
  33.     If state == 3 Then 
  34.       If Picture == Parent.bmpPeg Then 
  35.         effect = 0
  36.         Exit Sub
  37.       End If
  38.       If Parent.ValidMove(PegID) Then 
  39.         ' allow drop to take place
  40.         Picture = Parent.bmpPeg
  41.       Else 
  42.         effect = 0
  43.       End If
  44.     End If
  45.   End Sub
  46.  
  47.   Sub DragStart(o as XferData, x,y As Single)
  48.   
  49.     ' If there is no parent for this object, then don't do anything
  50.     If Not Parent Then Exit Sub
  51.   
  52.     If Parent.GameStarted And Picture == Parent.bmpPeg Then 
  53.       Picture = Parent.bmpNoPeg
  54.       Parent.DragSource = PegID
  55.       If o.Drag(2) <> 2 Then 
  56.         Picture = Parent.bmpPeg
  57.       Else 
  58.         Parent.MoveOver
  59.       End If
  60.     End If
  61.   End Sub
  62.  
  63.   Sub PegInit()
  64.     ' If there is no parent for this object, then don't do anything
  65.     If Not Parent Then Exit Sub
  66.   
  67.     ' Initialize the picture to show
  68.     Picture = Parent.bmpPeg
  69.   End Sub
  70.  
  71. End Type
  72.  
  73. Type GamePegMasterForm From SampleMasterForm
  74.   Dim imgLabel As New Image
  75.   Dim lblNotice As New Label
  76.   Dim bmpPeg As New Bitmap
  77.   Dim bmpNoPeg As New Bitmap
  78.   Dim GameStarted As Integer
  79.   Dim DragSource As String
  80.   Dim img0 As New PegImage
  81.   Dim img1 As New PegImage
  82.   Dim img2 As New PegImage
  83.   Dim img3 As New PegImage
  84.   Dim img4 As New PegImage
  85.   Dim img5 As New PegImage
  86.   Dim img6 As New PegImage
  87.   Dim img7 As New PegImage
  88.   Dim img8 As New PegImage
  89.   Dim img9 As New PegImage
  90.   Dim img10 As New PegImage
  91.   Dim img11 As New PegImage
  92.   Dim img12 As New PegImage
  93.   Dim img13 As New PegImage
  94.   Dim img14 As New PegImage
  95.   Dim img15 As New PegImage
  96.   Dim img16 As New PegImage
  97.  
  98.   ' METHODS for object: GamePegMasterForm
  99.   Sub Resize()
  100.   End Sub
  101.  
  102.   Sub DragAndDrop(source As XferData, x,y As Single, state As OleDropState, effect As OleDropEffect)
  103.     ' Image is dropped onto image 6
  104.     If state == 3 Then 
  105.       effect = 0
  106.     End If
  107.   End Sub
  108.  
  109.   Function GetPictureName (img As Integer) As String
  110.     ' Based on the image control number passed to this routine
  111.     ' return the associated picture bitmap
  112.     Select Case img
  113.       Case 0
  114.         GetPictureName = img0.Picture
  115.       Case 1
  116.         GetPictureName = img1.Picture
  117.       Case 2
  118.         GetPictureName = img2.Picture
  119.       Case 3
  120.         GetPictureName = img3.Picture
  121.       Case 4
  122.         GetPictureName = img4.Picture
  123.       Case 5
  124.         GetPictureName = img5.Picture
  125.       Case 6
  126.         GetPictureName = img6.Picture
  127.       Case 7
  128.         GetPictureName = img7.Picture
  129.       Case 8
  130.         GetPictureName = img8.Picture
  131.       Case 9
  132.         GetPictureName = img9.Picture
  133.       Case 10
  134.         GetPictureName = img10.Picture
  135.       Case 11
  136.         GetPictureName = img11.Picture
  137.       Case 12
  138.         GetPictureName = img12.Picture
  139.       Case 13
  140.         GetPictureName = img13.Picture
  141.       Case 14
  142.         GetPictureName = img14.Picture
  143.       Case 15
  144.         GetPictureName = img15.Picture
  145.       Case 16
  146.         GetPictureName = img16.Picture
  147.     End Select
  148.   End Function
  149.  
  150.   Function ValidMove(pos As Integer) As Integer
  151.     Dim valid_move As Integer
  152.   
  153.     ' Initialize the valid flag
  154.     valid_move = 1
  155.   
  156.     ' Checks the validity of the move
  157.     Select Case pos
  158.       Case 0
  159.         If DragSource == "10" And img5.Picture == bmpPeg Then 
  160.           img5.Picture = bmpNoPeg
  161.         ElseIf DragSource == "6" And img3.Picture == bmpPeg Then 
  162.           img3.Picture = bmpNoPeg
  163.         Else 
  164.           valid_move = 0
  165.         End If
  166.       Case 1
  167.         If DragSource == "5" And img3.Picture == bmpPeg Then 
  168.           img3.Picture = bmpNoPeg
  169.         ElseIf DragSource == "11" And img6.Picture == bmpPeg Then 
  170.           img6.Picture = bmpNoPeg
  171.         ElseIf DragSource == "7" And img4.Picture == bmpPeg Then 
  172.           img4.Picture = bmpNoPeg
  173.         Else 
  174.           valid_move = 0
  175.         End If
  176.       Case 2
  177.         If DragSource == "6" And img4.Picture == bmpPeg Then 
  178.           img4.Picture = bmpNoPeg
  179.         ElseIf DragSource == "12" And img7.Picture == bmpPeg Then 
  180.           img7.Picture = bmpNoPeg
  181.         Else 
  182.           valid_move = 0
  183.         End If
  184.       Case 3
  185.         If DragSource == "13" And img8.Picture == bmpPeg Then 
  186.           img8.Picture = bmpNoPeg
  187.         ElseIf DragSource == "9" And img6.Picture == bmpPeg Then 
  188.           img6.Picture = bmpNoPeg
  189.         Else 
  190.           valid_move = 0
  191.         End If
  192.       Case 4
  193.         If DragSource == "8" And img6.Picture == bmpPeg Then 
  194.           img6.Picture = bmpNoPeg
  195.         ElseIf DragSource == "14" And img9.Picture == bmpPeg Then 
  196.           img9.Picture = bmpNoPeg
  197.         Else 
  198.           valid_move = 0
  199.         End If
  200.       Case 5
  201.         If DragSource == "15" And img10.Picture == bmpPeg Then 
  202.           img10.Picture = bmpNoPeg
  203.         ElseIf DragSource == "11" And img8.Picture == bmpPeg Then 
  204.           img8.Picture = bmpNoPeg
  205.         ElseIf DragSource == "1" And img3.Picture == bmpPeg Then 
  206.           img3.Picture = bmpNoPeg
  207.         Else 
  208.           valid_move = 0
  209.         End If
  210.       Case 6
  211.         If DragSource == "0" And img3.Picture == bmpPeg Then 
  212.           img3.Picture = bmpNoPeg
  213.         ElseIf DragSource == "2" And img4.Picture == bmpPeg Then 
  214.           img4.Picture = bmpNoPeg
  215.         ElseIf DragSource == "10" And img8.Picture == bmpPeg Then 
  216.           img8.Picture = bmpNoPeg
  217.         ElseIf DragSource == "12" And img9.Picture == bmpPeg Then 
  218.           img9.Picture = bmpNoPeg
  219.         Else 
  220.           valid_move = 0
  221.         End If
  222.       Case 7
  223.         If DragSource == "1" And img4.Picture == bmpPeg Then 
  224.           img4.Picture = bmpNoPeg
  225.         ElseIf DragSource == "11" And img9.Picture == bmpPeg Then 
  226.           img9.Picture = bmpNoPeg
  227.         ElseIf DragSource == "16" And img12.Picture == bmpPeg Then 
  228.           img12.Picture = bmpNoPeg
  229.         Else 
  230.           valid_move = 0
  231.         End If
  232.       Case 8
  233.         If DragSource == "4" And img6.Picture == bmpPeg Then 
  234.           img6.Picture = bmpNoPeg
  235.         ElseIf DragSource == "14" And img11.Picture == bmpPeg Then 
  236.           img11.Picture = bmpNoPeg
  237.         Else 
  238.           valid_move = 0
  239.         End If
  240.       Case 9
  241.         If DragSource == "3" And img6.Picture == bmpPeg Then 
  242.           img6.Picture = bmpNoPeg
  243.         ElseIf DragSource == "13" And img11.Picture == bmpPeg Then 
  244.           img11.Picture = bmpNoPeg
  245.         Else 
  246.           valid_move = 0
  247.         End If
  248.       Case 10
  249.         If DragSource == "0" And img5.Picture == bmpPeg Then 
  250.           img5.Picture = bmpNoPeg
  251.         ElseIf DragSource == "6" And img8.Picture == bmpPeg Then 
  252.           img8.Picture = bmpNoPeg
  253.         Else 
  254.           valid_move = 0
  255.         End If
  256.       Case 11
  257.         If DragSource == "5" And img8.Picture == bmpPeg Then 
  258.           img8.Picture = bmpNoPeg
  259.         ElseIf DragSource == "15" And img13.Picture == bmpPeg Then 
  260.           img13.Picture = bmpNoPeg
  261.         ElseIf DragSource == "1" And img6.Picture == bmpPeg Then 
  262.           img6.Picture = bmpNoPeg
  263.         ElseIf DragSource == "7" And img9.Picture == bmpPeg Then 
  264.           img9.Picture = bmpNoPeg
  265.         ElseIf DragSource == "16" And img14.Picture == bmpPeg Then 
  266.           img14.Picture = bmpNoPeg
  267.         Else 
  268.           valid_move = 0
  269.         End If
  270.       Case 12
  271.         If DragSource == "6" And img9.Picture == bmpPeg Then 
  272.           img9.Picture = bmpNoPeg
  273.         ElseIf DragSource == "2" And img7.Picture == bmpPeg Then 
  274.           img7.Picture = bmpNoPeg
  275.         Else 
  276.           valid_move = 0
  277.         End If
  278.       Case 13
  279.         If DragSource == "3" And img8.Picture == bmpPeg Then 
  280.           img8.Picture = bmpNoPeg
  281.         ElseIf DragSource == "9" And img11.Picture == bmpPeg Then 
  282.           img11.Picture = bmpNoPeg
  283.         Else 
  284.           valid_move = 0
  285.         End If
  286.       Case 14
  287.         If DragSource == "8" And img11.Picture == bmpPeg Then 
  288.           img11.Picture = bmpNoPeg
  289.         ElseIf DragSource == "4" And img9.Picture == bmpPeg Then 
  290.           img9.Picture = bmpNoPeg
  291.         Else 
  292.           valid_move = 0
  293.         End If
  294.       Case 15
  295.         If DragSource == "5" And img10.Picture == bmpPeg Then 
  296.           img10.Picture = bmpNoPeg
  297.         ElseIf DragSource == "11" And img13.Picture == bmpPeg Then 
  298.           img13.Picture = bmpNoPeg
  299.         Else 
  300.           valid_move = 0
  301.         End If
  302.       Case 16
  303.         If DragSource == "11" And img14.Picture == bmpPeg Then 
  304.           img14.Picture = bmpNoPeg
  305.         ElseIf DragSource == "7" And img12.Picture == bmpPeg Then 
  306.           img12.Picture = bmpNoPeg
  307.         Else 
  308.           valid_move = 0
  309.         End If
  310.     End Select
  311.   
  312.     If valid_move == 0 Then 
  313.       ValidMove = 0
  314.     Else 
  315.       ValidMove = 1
  316.     End If
  317.   
  318.   End Function
  319.  
  320.   Function MoreMoves() As Integer
  321.     ' Determine if there are any additional moves possible
  322.     If MoveOK(0, 5, 10) Then 
  323.       MoreMoves = -1
  324.     ElseIf MoveOK(0, 3, 6) Then 
  325.       MoreMoves = -1
  326.     ElseIf MoveOK(2, 7, 12) Then 
  327.       MoreMoves = -1
  328.     ElseIf MoveOK(2, 4, 6) Then 
  329.       MoreMoves = -1
  330.     ElseIf MoveOK(1, 3, 5) Then 
  331.       MoreMoves = -1
  332.     ElseIf MoveOK(1, 4, 7) Then 
  333.       MoreMoves = -1
  334.     ElseIf MoveOK(3, 6, 9) Then 
  335.       MoreMoves = -1
  336.     ElseIf MoveOK(4, 6, 8) Then 
  337.       MoreMoves = -1
  338.     ElseIf MoveOK(5, 8, 11) Then 
  339.       MoreMoves = -1
  340.     ElseIf MoveOK(6, 8, 10) Then 
  341.       MoreMoves = -1
  342.     ElseIf MoveOK(6, 9, 12) Then 
  343.       MoreMoves = -1
  344.     ElseIf MoveOK(7, 9, 11) Then 
  345.       MoreMoves = -1
  346.     ElseIf MoveOK(11, 13, 15) Then 
  347.       MoreMoves = -1
  348.     ElseIf MoveOK(11, 14, 16) Then 
  349.       MoreMoves = -1
  350.     ElseIf MoveOK(9, 11, 13) Then 
  351.       MoreMoves = -1
  352.     ElseIf MoveOK(8, 11, 14) Then 
  353.       MoreMoves = -1
  354.     ElseIf MoveOK(5, 10, 15) Then 
  355.       MoreMoves = -1
  356.     ElseIf MoveOK(7, 12, 16) Then 
  357.       MoreMoves = -1
  358.     ElseIf MoveOK(3, 8, 13) Then 
  359.       MoreMoves = -1
  360.     ElseIf MoveOK(1, 6, 11) Then 
  361.       MoreMoves = -1
  362.     ElseIf MoveOK(4, 9, 14) Then 
  363.       MoreMoves = -1
  364.     Else 
  365.       MoreMoves = 0
  366.     End If
  367.   
  368.   End Function
  369.  
  370.   Function MoveOK(No1 As Integer, No2 As Integer, No3 As Integer) As Integer
  371.     Dim bmp1 As String
  372.     Dim bmp2 As String
  373.     Dim bmp3 As String
  374.   
  375.     ' Get the names of the bitmaps in the designated image controls
  376.     bmp1 = GetPictureName(No1)
  377.     bmp2 = GetPictureName(No2)
  378.     bmp3 = GetPictureName(No3)
  379.   
  380.     ' Check to see if this sequence and the reverse jump sequence is valid or not
  381.     If bmp1 == "GamePegMasterForm.bmpPeg" And bmp2 == "GamePegMasterForm.bmpPeg" And bmp3 == "GamePegMasterForm.bmpNoPeg" Then 
  382.       MoveOK = -1
  383.     ElseIf bmp3 == "GamePegMasterForm.bmpPeg" And bmp2 == "GamePegMasterForm.bmpPeg" And bmp1 == "GamePegMasterForm.bmpNoPeg" Then 
  384.       MoveOK = -1
  385.     Else 
  386.       MoveOK = 0
  387.     End If
  388.   
  389.   End Function
  390.  
  391.   Sub MoveOver()
  392.     Dim peg_count As Integer
  393.     Dim message As String
  394.   
  395.     ' Determine if there are any more moves possible
  396.     If Not MoreMoves() Then 
  397.       ' No more move are possible so let's count whats left over
  398.       peg_count = 0
  399.   
  400.       ' Ask all controls if they have a peg and if so, increment the peg_count variable
  401.       Controls.HasPeg(peg_count)
  402.   
  403.       Select Case peg_count
  404.         Case 1
  405.           message = "General"
  406.         Case 2
  407.           message = "Colonel"
  408.         Case 3
  409.           message = "Captain"
  410.         Case 4
  411.           message = "Lieutenant"
  412.         Case 5
  413.           message = "Sergeant"
  414.         Case Else
  415.           message = "Private"
  416.       End Select
  417.   
  418.       ' Let the user know how he did
  419.       lblNotice.Caption = "Game Over!" & Chr(13) & Chr(10) & "Your rank is: " & message
  420.   
  421.     End If
  422.   End Sub
  423.  
  424.   Sub ResetApplication_Click ()
  425.   
  426.     ' Initialize the scales of all images
  427.     Controls.PegInit
  428.   
  429.     ' Initialize game flags
  430.     GameStarted = 0
  431.   
  432.     ' Let the user know what's going on
  433.     lblNotice.Caption = "Click to remove first peg..."
  434.   
  435.     ' Size the form to match the bitmap
  436.     GamePegMasterForm.Width = 3570
  437.     GamePegMasterForm.Height = 4440
  438.   
  439.     Controls.Refresh
  440.   
  441.   End Sub
  442.  
  443. End Type
  444.  
  445. Begin Code
  446. ' Reconstruction commands for object: PegImage
  447. '
  448.   With PegImage
  449.     .DragMode := "LeftMouse"
  450.     .Move(0, 0, 0, 0)
  451.     .AutoInitCropRect := False
  452.     .ResizeMode := "Clip"
  453.     .ScrollBars := "Never"
  454.     .ScaleX := 1
  455.     .ScaleY := 1
  456.     .PegID := 0
  457.   End With  'PegImage
  458. ' Reconstruction commands for object: GamePegMasterForm
  459. '
  460.   With GamePegMasterForm
  461.     .Caption := "Pegs Game"
  462.     .Move(9015, 2010, 3570, 4440)
  463.     .GameStarted := 0
  464.     .DragSource := "6"
  465.     .SampleDir := "W:\arsenal\apps\gamepeg\"
  466.     .SampleName := "gamepeg"
  467.     With .imgLabel
  468.       .Caption := "imgLabel"
  469.       .ZOrder := 2
  470.       .Move(300, 2850, 2850, 585)
  471.     End With  'GamePegMasterForm.imgLabel
  472.     With .lblNotice
  473.       .Caption := "Click to remove first peg..."
  474.       .ZOrder := 1
  475.       .Move(450, 2895, 2550, 495)
  476.       .Alignment := "Center"
  477.     End With  'GamePegMasterForm.lblNotice
  478.     With .bmpPeg
  479.       .LoadType := "MemoryBased"
  480.       .FileName := "gamepeg.ero"
  481.       .ResId := 0
  482.     End With  'GamePegMasterForm.bmpPeg
  483.     With .bmpNoPeg
  484.       .LoadType := "MemoryBased"
  485.       .FileName := "gamepeg.ero"
  486.       .ResId := 628
  487.     End With  'GamePegMasterForm.bmpNoPeg
  488.     With .img0
  489.       .Caption := "img0"
  490.       .DragMode := "RightMouse"
  491.       .ZOrder := 3
  492.       .Move(300, 300, 480, 480)
  493.       .Picture := GamePegMasterForm.bmpPeg
  494.     End With  'GamePegMasterForm.img0
  495.     With .img1
  496.       .Caption := "img1"
  497.       .DragMode := "RightMouse"
  498.       .ZOrder := 4
  499.       .Move(1500, 300, 480, 480)
  500.       .Picture := GamePegMasterForm.bmpPeg
  501.       .PegID := 1
  502.     End With  'GamePegMasterForm.img1
  503.     With .img2
  504.       .Caption := "img2"
  505.       .DragMode := "RightMouse"
  506.       .ZOrder := 5
  507.       .Move(2700, 300, 480, 480)
  508.       .Picture := GamePegMasterForm.bmpPeg
  509.       .PegID := 2
  510.     End With  'GamePegMasterForm.img2
  511.     With .img3
  512.       .Caption := "img3"
  513.       .DragMode := "RightMouse"
  514.       .ZOrder := 6
  515.       .Move(900, 600, 480, 480)
  516.       .Picture := GamePegMasterForm.bmpPeg
  517.       .PegID := 3
  518.     End With  'GamePegMasterForm.img3
  519.     With .img4
  520.       .Caption := "img4"
  521.       .DragMode := "RightMouse"
  522.       .ZOrder := 7
  523.       .Move(2100, 600, 480, 480)
  524.       .Picture := GamePegMasterForm.bmpPeg
  525.       .PegID := 4
  526.     End With  'GamePegMasterForm.img4
  527.     With .img5
  528.       .Caption := "img5"
  529.       .DragMode := "RightMouse"
  530.       .ZOrder := 8
  531.       .Move(300, 900, 480, 480)
  532.       .Picture := GamePegMasterForm.bmpPeg
  533.       .PegID := 5
  534.     End With  'GamePegMasterForm.img5
  535.     With .img6
  536.       .Caption := "img6"
  537.       .DragMode := "RightMouse"
  538.       .ZOrder := 9
  539.       .Move(1500, 900, 480, 480)
  540.       .Picture := GamePegMasterForm.bmpPeg
  541.       .PegID := 6
  542.     End With  'GamePegMasterForm.img6
  543.     With .img7
  544.       .Caption := "img7"
  545.       .DragMode := "RightMouse"
  546.       .ZOrder := 10
  547.       .Move(2700, 900, 480, 480)
  548.       .Picture := GamePegMasterForm.bmpPeg
  549.       .PegID := 7
  550.     End With  'GamePegMasterForm.img7
  551.     With .img8
  552.       .Caption := "img8"
  553.       .DragMode := "RightMouse"
  554.       .ZOrder := 11
  555.       .Move(900, 1200, 480, 480)
  556.       .Picture := GamePegMasterForm.bmpPeg
  557.       .PegID := 8
  558.     End With  'GamePegMasterForm.img8
  559.     With .img9
  560.       .Caption := "img9"
  561.       .DragMode := "RightMouse"
  562.       .ZOrder := 12
  563.       .Move(2100, 1200, 480, 480)
  564.       .Picture := GamePegMasterForm.bmpPeg
  565.       .PegID := 9
  566.     End With  'GamePegMasterForm.img9
  567.     With .img10
  568.       .Caption := "img10"
  569.       .DragMode := "RightMouse"
  570.       .ZOrder := 13
  571.       .Move(300, 1500, 480, 480)
  572.       .Picture := GamePegMasterForm.bmpPeg
  573.       .PegID := 10
  574.     End With  'GamePegMasterForm.img10
  575.     With .img11
  576.       .Caption := "img11"
  577.       .DragMode := "RightMouse"
  578.       .ZOrder := 14
  579.       .Move(1500, 1500, 480, 480)
  580.       .Picture := GamePegMasterForm.bmpPeg
  581.       .PegID := 11
  582.     End With  'GamePegMasterForm.img11
  583.     With .img12
  584.       .Caption := "img12"
  585.       .DragMode := "RightMouse"
  586.       .ZOrder := 15
  587.       .Move(2700, 1500, 480, 480)
  588.       .Picture := GamePegMasterForm.bmpPeg
  589.       .PegID := 12
  590.     End With  'GamePegMasterForm.img12
  591.     With .img13
  592.       .Caption := "img13"
  593.       .DragMode := "RightMouse"
  594.       .ZOrder := 16
  595.       .Move(900, 1800, 480, 480)
  596.       .Picture := GamePegMasterForm.bmpPeg
  597.       .PegID := 13
  598.     End With  'GamePegMasterForm.img13
  599.     With .img14
  600.       .Caption := "img14"
  601.       .DragMode := "RightMouse"
  602.       .ZOrder := 17
  603.       .Move(2100, 1800, 480, 480)
  604.       .Picture := GamePegMasterForm.bmpPeg
  605.       .PegID := 14
  606.     End With  'GamePegMasterForm.img14
  607.     With .img15
  608.       .Caption := "img15"
  609.       .DragMode := "RightMouse"
  610.       .ZOrder := 18
  611.       .Move(300, 2100, 480, 480)
  612.       .Picture := GamePegMasterForm.bmpPeg
  613.       .PegID := 15
  614.     End With  'GamePegMasterForm.img15
  615.     With .img16
  616.       .Caption := "img16"
  617.       .DragMode := "RightMouse"
  618.       .ZOrder := 19
  619.       .Move(2700, 2100, 480, 480)
  620.       .Picture := GamePegMasterForm.bmpPeg
  621.       .PegID := 16
  622.     End With  'GamePegMasterForm.img16
  623.     With .helpfile
  624.       .FileName := "W:\arsenal\apps\gamepeg\gamepeg.hlp"
  625.     End With  'GamePegMasterForm.helpfile
  626.   End With  'GamePegMasterForm
  627. End Code
  628.