• Home
 · 
• Graphics
 · 
• Dim nMousecount As Integer Dim CarX As Integer Dim carY As Integer Private Sub Command1_Click() End

Dim nMousecount As Integer Dim CarX As Integer Dim carY As Integer Private Sub Command1_Click() End

Dim nMousecount As Integer Dim CarX As Integer Dim carY As Integer Private Sub Command1_Click() End Sub Private Sub Form_KeyPress(KeyAscii As

API Declarations


like screen saver



Rate Dim nMousecount As Integer Dim CarX As Integer Dim carY As Integer Private Sub Command1_Click() End

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim CarX As Integer
Dim carY As Integer

Private Sub Command1_Click()

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
End
End Sub

Private Sub Form_Load()
If App.PrevInstance Then End
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
nMousecount = nMousecount + 1
If nMousecount > 5 Then End
End Sub

Private Sub Timer1_Timer()
Dim CX, CY, Radius, Limit   ' Declare variable.
   ScaleMode = 1           ' Set scale to pixels.
   CX = ScaleWidth / 2    ' Set X position.
   CY = ScaleHeight / 2  ' Set Y position.
   If CX > CY Then
   Limit = CY
   Else
   Limit = CX
   End If
   For Radius = 0 To Limit   ' Set radius.
      Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)

   Next Radius
End Sub