Private Sub
Timer1_Timer()
PSet (ScaleHeight * Rnd, ScaleWidth * Rnd), RGB(Rnd * 225, Rnd * 225, Rnd * 225)
End Sub
PSet (ScaleHeight * Rnd, ScaleWidth * Rnd), RGB(Rnd * 225, Rnd * 225, Rnd * 225)
End Sub
Output
Note:- Please set some property of your control like caption
or id corresponding to your control