Shubodhana Samanpriya
Personal Information
Occupation
Nobody
About
(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(