home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Cool_Regis69171452002.psc / Module2.bas < prev    next >
Encoding:
BASIC Source File  |  2002-02-02  |  442 b   |  18 lines
  1. Attribute VB_Name = "Module1"
  2. Public Sub DoG(FormName As Object)
  3. On Error Resume Next
  4.     Dim i As Integer, y As Integer
  5.     FormName.AutoRedraw = True
  6.     FormName.DrawStyle = 6
  7.     FormName.DrawMode = 13
  8.     FormName.DrawWidth = 13
  9.     FormName.ScaleMode = 3
  10.     FormName.ScaleHeight = 256
  11.     For i = 0 To 510
  12.         FormName.Line (0, y)-(FormName.Width, y + 1), RGB(0, 100, i), BF
  13.         y = y + 1
  14.     Next i
  15. End Sub
  16.  
  17.  
  18.