• Home
 · 
• Graphics
 · 
• This simple code will fill the form with varieties of colourful balls in a wonderful style. Tasks f

This simple code will fill the form with varieties of colourful balls in a wonderful style. Tasks f

This simple code will fill the form with varieties of colourful balls in a wonderful style. Tasks for user: JUST ADD A TIMER ON THE FORM. AND

Rate This simple code will fill the form with varieties of colourful balls in a wonderful style. Tasks f

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Static color As Integer
If color <> 15 Then
color = color + 1
Else
color = 0
End If
x = Int((ScaleWidth - (ScaleWidth / 20)) * Rnd + (ScaleWidth / 20))
y = Int((ScaleHeight - (ScaleHeight / 20)) * Rnd + (ScaleHeight / 20))
DrawWidth = 20
PSet (x, y), QBColor(color)

End Sub