'command1          command2           timer              label1

Dim Y!, A!, X!, T!, X1, Y1
Private Sub Form_Load()
Form1.BackColor = QBColor(0)
Label1.ForeColor = QBColor(12)
Label1.BackColor = QBColor(0)
Label1.Caption = "神奇宇宙"
Command1.Caption = "运行"
Command2.Caption = "结束"
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Me.FillColor = RGB(255, 255, 0)
Me.FillStyle = 0
Me.Circle (3000, 2000), 150
End Sub

Private Sub Timer1_Timer()
     A = 2200
     Me.FillColor = RGB(0, 0, 0)
     Me.ForeColor = RGB(0, 0, 0)
     Me.Circle (X, Y), 80
     Me.FillStyle = 1
     Me.ForeColor = QBColor(14)
     Me.Circle (3800, 2000), A, , , , 0.5
     Me.FillStyle = 0
     Me.FillColor = QBColor(14)
     Me.ForeColor = QBColor(14)
     T = T + 3.14159 / 40
     X = A * Cos(T / 10) + 3800
     Y = A * Sin(T / 10) / 2 + 2000
     Me.Circle (X, Y), 80
     A = 180
     Me.FillColor = RGB(0, 0, 0)
     Me.ForeColor = RGB(0, 0, 0)
     Me.Circle (X1, Y1), 30
     Me.FillStyle = 0
     Me.FillColor = QBColor(15)
     Me.ForeColor = QBColor(15)
     T = T + 3.14159 / 40
     X1 = A * Cos(T / 1) + X
     Y1 = A * Sin(T / 1) + Y
     Me.Circle (X1, Y1), 30
End Sub
Private Sub Command2_Click()
End
End Sub