home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / grafik / fade2 / sample.txt < prev   
Encoding:
Text File  |  1995-02-27  |  554 b   |  27 lines
  1. Option Explicit
  2.  
  3. Sub Form_Load ()
  4.     Move 0, 0, Screen.Width, Screen.Height * .85
  5. End Sub
  6.  
  7. Sub Form_Paint ()
  8.     
  9.     If Me.WindowState <> 1 Then
  10.         If optGradient(0).Value Then
  11.             Call FadeForm(Me, 0)
  12.         ElseIf optGradient(1).Value Then
  13.             Call FadeForm(Me, 1)
  14.         ElseIf optGradient(2).Value Then
  15.             Call FadeForm(Me, 2)
  16.         Else
  17.             Call FadeForm(Me, 666)
  18.         End If
  19.     End If
  20.  
  21. End Sub
  22.  
  23. Sub optGradient_Click (index As Integer)
  24.     Call FadeForm(Me, index)
  25. End Sub
  26.  
  27.