Forum: Visual Basic 4 / 5 / 6 Jul 5th, 2009 |
| Replies: 5 Views: 4,579 And a little bit simpler :)
Option Explicit
Private Sub Form_Click()
Form1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub |
Forum: Visual Basic 4 / 5 / 6 Jul 4th, 2009 |
| Replies: 5 Views: 4,579 Private Sub Form_Click()
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
a = randomise(0, 255)
b = randomise(0, 255)
c = randomise(0, 255)
d = a * b * c |