shadform.bas

shadform.zip

Option Explicit

Sub ShadeForm (Frm As Form)

' Description
'     Draws the "install-type" shaded background on a form
'
' Paramaters
'     Name                 Type     Value
'     -----------------------------------------------------------
'     Frm                  Form     The form to draw the shade on
'
' Returns
'     Nothing
'
' Last modified by Gord MacLeod 05.02.96

Dim i%
Dim NumberOfRects As Integer
Dim GradColor As Long
Dim GradValue As Integer

   Frm.ScaleMode = 3
   Frm.DrawStyle = 6
   Frm.DrawWidth = 2
   Frm.AutoRedraw = True
   
   NumberOfRects = 64
    
   For i% = 1 To 64
   
      GradValue = 255 - (i% * 4 - 1)
       
      ' Put GradValue in Red and Green for a different look
      GradColor = RGB(0, 0, GradValue)
       
      ' Draw the line
      Frm.Line (0, Frm.ScaleHeight * (i% - 1) / 64)-(Frm.ScaleWidth, Frm.ScaleHeight * i% / 64), GradColor, BF
    
   Next i%

   Frm.Refresh

End Sub