home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP33 / 309X3502.TXT < prev    next >
Encoding:
Text File  |  1998-04-29  |  441 b   |  15 lines
  1.  
  2. Private Sub cmdTest_Click(Index As Integer)
  3.  
  4.     Static intArrayPtr As Integer
  5.  
  6.     intArrayPtr = intArrayPtr + 1
  7.     Load cmdTest(intArrayPtr)
  8.     cmdTest(intArrayPtr).Left = cmdTest(intArrayPtr - 1).Left + 150
  9.     cmdTest(intArrayPtr).Top = cmdTest(intArrayPtr - 1).Top + 150
  10.     cmdTest(intArrayPtr).Caption = "Clone" & Str$(intArrayPtr)
  11.     cmdTest(intArrayPtr).Visible = True
  12.     cmdTest(intArrayPtr).ZOrder (0)
  13.  
  14. End Sub
  15.