form1.frm

variant code in this rar zipped package

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Left            =   720
      Top             =   840
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim quitflag As Boolean

Private Sub Form_Click()
quitflag = True
Unload Me
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
quitflag = True
Unload Me
End Sub

Private Sub Form_Load()
 
     Show
    Randomize
  Scale (0, 0)-(1, 1)
  BackColor = vbBlack
  Do
     If Rnd < 0.03 Then
           ForeColor = QBColor(Int(Rnd * 16))
           DrawWidth = Int(Rnd * 9 + 1)
    End If
    Circle (Rnd, Rnd), Rnd
       DoEvents
    Loop Until quitflag = True
  
End Sub

Private Sub Timer1_Timer()
Unload Me
End Sub