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 / CHAP35 / 309X3704.TXT < prev    next >
Encoding:
Text File  |  1998-05-03  |  755 b   |  20 lines
  1.  
  2. Select Case DoFlag
  3.         Case True
  4.   VBCP_Update 1, "cmdStartStop_Click", 2
  5.             cmdStartStop.Caption = "Start Demo"
  6.   VBCP_Update 1, "cmdStartStop_Click", 3
  7.             DoFlag = False
  8.   VBCP_Update 1, "cmdStartStop_Click", 4
  9.             mnuOption.Enabled = True
  10.   VBCP_Update 1, "cmdStartStop_Click", 5
  11.             If mnuCtlMoveDemo.Checked = True And  _
  12.                VBCP_UpdateIf(1, "cmdStartStop_Click", 6) Then
  13.                 ' Hide bouncing graphic again.
  14.                 picBall.Visible = False
  15.   VBCP_Update 1, "cmdStartStop_Click", 7
  16.             ElseIf mnuLineDemo.Checked = True And _
  17.                VBCP_UpdateIf(1, "cmdStartStop_Click", 8) Then
  18.                 ' Remove lines from the form.
  19.                 Cls
  20.