• Home
 · 
• Custom Controls/Forms/Menus
 · 
• 3D Tunnel from effect with color selection

3D Tunnel from effect with color selection

3D Tunnel from effect with color selection

Rate 3D Tunnel from effect with color selection

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' * Programmer Name  : Waty Thierry
' * Web Site         : www.geocities.com/ResearchTriangle/6311/
' * E-Mail           : [email protected]
' * Date             : 13/10/98
' * Time             : 10:24
' * Module Name      : Form_Module
' * Module Filename  : Form.bas
' **********************************************************************
' * Comments         :
' * 3D Tunnel from effect with color selection
' **********************************************************************

Sub ThreeDTunnel(frm As Form, r%, g%, b%)
   'Visit DiP's VB World At:
   'http://come.to/dipsvbworld
   frm.Scale (0, 100)-(100, 0)
   frm.BackColor = vbBlack
   frm.ForeColor = vbBlack
   For X% = 0 To 100
      frm.ForeColor = RGB(90, 90, 90)
      frm.Line (X%, 0)-(100 - X%, 100)
      frm.ForeColor = RGB(r%, g%, b%)
      frm.Line (0, X%)-(100, 100 - X%)
      current = Timer
      Do: DoEvents
      Loop Until Timer - current > 1E-99
   Next X%
   For X% = 10 To 50
      Me.Line (50 - X%, 50 + X%)-(50 + X%, 50 - X%), , BF
      current = Timer
      Do: DoEvents
      Loop Until Timer - current > 1E-99
   Next X%
End Sub