by Waty Thierry (60 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Tue 30th March 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
3D Tunnel from effect with color selection
' * 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