• Home
 · 
• Graphics
 · 
• draws pixels on screen using Pset method

draws pixels on screen using Pset method

draws pixels on screen using Pset method

API Declarations


dim points



Rate draws pixels on screen using Pset method

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

End
End Sub

Private Sub Form_Load()
Form1.WindowState = 2
points = 0
Form1.BackColor = vbBlack

End Sub


Private Sub Timer1_Timer()
points = 1
Dim r, g, b
Dim x, y, ctr
If points = 1 Then
For ctr = 1 To 1000
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
x = Rnd * Form1.ScaleWidth
y = Rnd * Form1.ScaleHeight
Form1.PSet (x, y), RGB(r, g, b)
Next
End If

End Sub