کد ها ی زیر رو توی جنرال کپی کنید
[php][/php]Option Explicit
Dim i As Integer
Dim j As Integer
Dim a As Integer
Dim b As Integer
Dim r As Integer
Dim o As Integer
Private Sub Form_Click()
End
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
End
End Sub
Private Sub Form_Load()
Form1.BackColor = vbBlack
Form1.WindowState = 2
Label1.Top = 8500
Label1.Left = 11000
r = 300
End Sub
Private Sub Timer1_Timer()
With Label1
If .Left <= 11000 Then .Left = .Left - 100
If .Left < -5000 Then .Left = 11000
End With
End Sub
Private Sub Timer2_Timer()
Form1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub
Private Sub Timer3_Timer()
Me.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
For i = 3000 To 10000 Step 20
Form1.Circle (i, 900), r
Form1.Circle (13000 - i, 900), r
Form1.Circle (10000, 10920 - i), r
Form1.Circle (3000, 10920 - i), r
Form1.Circle (10000, i - 2080), r
Form1.Circle (i, 7940), r
Form1.Circle (13000 - i, 7940), r
Form1.Circle (13000 - i, 10920 - i), r
Form1.Circle (i, i - 2080), r
Form1.Circle (i, 10940 - i), r
Form1.Circle (13000 - i, i - 2060), r
Form1.Circle (13000 - i, i - 2060), r
Form1.Circle (3000, i - 2080), r
Next i
End Sub
[php][/php]Option Explicit
Dim i As Integer
Dim j As Integer
Dim a As Integer
Dim b As Integer
Dim r As Integer
Dim o As Integer
Private Sub Form_Click()
End
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
End
End Sub
Private Sub Form_Load()
Form1.BackColor = vbBlack
Form1.WindowState = 2
Label1.Top = 8500
Label1.Left = 11000
r = 300
End Sub
Private Sub Timer1_Timer()
With Label1
If .Left <= 11000 Then .Left = .Left - 100
If .Left < -5000 Then .Left = 11000
End With
End Sub
Private Sub Timer2_Timer()
Form1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub
Private Sub Timer3_Timer()
Me.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
For i = 3000 To 10000 Step 20
Form1.Circle (i, 900), r
Form1.Circle (13000 - i, 900), r
Form1.Circle (10000, 10920 - i), r
Form1.Circle (3000, 10920 - i), r
Form1.Circle (10000, i - 2080), r
Form1.Circle (i, 7940), r
Form1.Circle (13000 - i, 7940), r
Form1.Circle (13000 - i, 10920 - i), r
Form1.Circle (i, i - 2080), r
Form1.Circle (i, 10940 - i), r
Form1.Circle (13000 - i, i - 2060), r
Form1.Circle (13000 - i, i - 2060), r
Form1.Circle (3000, i - 2080), r
Next i
End Sub