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