Labelscreensaver: code

Private Sub Form_KeyDown(KeyCode As Integer, Shift 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)
End
End Sub

Private Sub Timer1_Timer()
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
t = Rnd * Screen.Height
l = Rnd * Screen.Width
With Label1
.Top = t
.Left = l
.ForeColor = RGB(r, g, b)
End With
End Sub

[VB Web] - [hlrnet] - [copyright]