(RANDOM)
Private Function GetRndV(Max) As Integer
GetRndV = Int(Rnd * Max)
End Function
Private Sub Form_DblClick()
Timer1.Interval = 10
Timer1.Enabled = True
Randomize (Timer * 100 Mod 10000)
Me.DrawWidth = 2
End Sub
Private Sub Timer1_Timer()
Dim Mode
Mode = GetRndV(3)
If Mode = 0 Then
Line (GetRndV(10000), GetRndV(10000))-Step(GetRndV(1000), GetRndV(1000)), RGB(GetRndV(256), GetRndV(256), GetRndV(256)), B
ElseIf Mode = 1 Then
Line (GetRndV(10000), GetRndV(10000))-Step(GetRndV(1000), GetRndV(1000)), RGB(GetRndV(256), GetRndV(256), GetRndV(256)), BF
ElseIf Mode = 2 Then
Line (GetRndV(10000), GetRndV(10000))-Step(GetRndV(1000), GetRndV(1000)), RGB(GetRndV(
We鈥檝e updated our privacy policy so that we are compliant with changing global privacy regulations and to provide you with insight into the limited ways in which we use your data.
You can read the details below. By accepting, you agree to the updated privacy policy.
