VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00000000&
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '系統預設值
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   3960
      Top             =   1080
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   255
      Index           =   4
      Left            =   1440
      TabIndex        =   4
      Top             =   1080
      Width           =   255
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   255
      Index           =   3
      Left            =   2280
      TabIndex        =   3
      Top             =   840
      Width           =   255
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   255
      Index           =   2
      Left            =   720
      TabIndex        =   2
      Top             =   2040
      Width           =   255
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   255
      Index           =   1
      Left            =   2520
      TabIndex        =   1
      Top             =   2040
      Width           =   255
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   255
      Index           =   0
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   255
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Timer1_Timer()
    Randomize Timer
    '哪一個
    wh = Int(Rnd * 5) '0~4
    
    '位置
    x = Int(Rnd * (Form1.ScaleWidth - Label1(wh).Width))
    y = Int(Rnd * (Form1.ScaleHeight - Label1(wh).Height))
    Label1(wh).Left = x   '屬性left:座標x
    Label1(wh).Top = y    '屬性top:座標y
    
    '大小
    Label1(wh).Font.Size = Int(Rnd * 12) + 8   '8~19
    
    '顏色
    c1 = Int(Rnd * 256)
    c2 = Int(Rnd * 256)
    c3 = Int(Rnd * 256)
    Label1(wh).ForeColor = RGB(c1, c2, c3) '屬性forecolor:前景色
    
    '週期
    Timer1.Interval = Int(Rnd * 15) + 50
    
    '文字
    Label1(wh).Caption = Chr(Int(Rnd * 26) + 65) '字母A~Z=65~90


End Sub