Dim a As Long



Private Sub Timer1_Timer()

Line (800, 800)-(800, 800 + a), Int(Rnd * 65000)

Line (2000, 800)-(2000, 800 + a), Int(Rnd * 65000)

Line (3000, 800)-(3000, 800 + a), Int(Rnd * 65000)

Line (4000, 800)-(4000, 800 + a), Int(Rnd * 65000)

Line (5000, 800)-(5000, 800 + a), Int(Rnd * 65000)

Line (6000, 800)-(6000, 800 + a), Int(Rnd * 65000)

Line (7000, 800)-(7000, 800 + a), Int(Rnd * 65000)

Line (8000, 800)-(8000, 800 + a), Int(Rnd * 65000)

Line (9000, 800)-(9000, 800 + a), Int(Rnd * 65000)

Line (10000, 800)-(10000, 800 + a), Int(Rnd * 65000)

Line (11000, 800)-(11000, 800 + a), Int(Rnd * 65000)

Line (12000, 800)-(12000, 800 + a), Int(Rnd * 65000)

Line (13000, 800)-(13000, 800 + a), Int(Rnd * 65000)

Line (14000, 800)-(14000, 800 + a), Int(Rnd * 65000)

Line (15000, 800)-(15000, 800 + a), Int(Rnd * 65000)

Line (800, 800)-(800 + a, 800), Int(Rnd * 65000)

Line (800, 2000)-(800 + a, 2000), Int(Rnd * 65000)

Line (800, 3000)-(800 + a, 3000), Int(Rnd * 65000)

Line (800, 4000)-(800 + a, 4000), Int(Rnd * 65000)

Line (800, 5000)-(800 + a, 5000), Int(Rnd * 65000)

Line (800, 6000)-(800 + a, 6000), Int(Rnd * 65000)

Line (800, 7000)-(800 + a, 7000), Int(Rnd * 65000)

Line (800, 8000)-(800 + a, 8000), Int(Rnd * 65000)

Line (800, 9000)-(800 + a, 9000), Int(Rnd * 65000)

Line (800, 10000)-(800 + a, 10000), Int(Rnd * 65000)

Line (800, 11000)-(800 + a, 11000), Int(Rnd * 65000)

a = a + 50

End Sub

Private Sub Check6_Click()

If Check4.Value = 1 Then

Check5.Value = 0

Text1.ForeColor = RGB(255, 0, 255)

End If

End Sub



Private Sub Command1_Click()

If Check1.Value = 1 Then

Text1.FontBold = True

Else

Text1.FontBold = False

End If

If Check2.Value = 1 Then

Text1.FontItalic = True

Else

Text1.FontItalic = False

End If

If Check3.Value = 1 Then

Text1.FontUnderline = True

Else

Text1.FontUnderline = False

End If

End Sub



Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

Text1.FontSize = Text1.FontSize - 5

End Sub

Private Sub Command4_Click()

Text1.FontSize = Text1.FontSize + 5

End Sub