by Asrar Ahmed Khan (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 7th March 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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
No comments have been posted about Dim nMousecount As Integer Dim CarX As Integer Dim carY As Integer Private Sub Command1_Click() End. Why not be the first to post a comment about Dim nMousecount As Integer Dim CarX As Integer Dim carY As Integer Private Sub Command1_Click() End.