code82a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 19 行

Dim Cancel as Boolean

Private Sub Form_Load()
  lblQuery.Caption = "Click on cancel to exit."
  Me.Show
  Cancel = False

  Do While Not Cancel
    lblQuery.ForeColor = QBColor(Rnd * 10)
    DoEvents
  Loop

  End
End Sub

Private Sub cmdCancel_Click()
  Cancel = True
End Sub