VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



3D Tunnel from effect with color selection

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

Rate 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


Download this snippet    Add to My Saved Code

3D Tunnel from effect with color selection Comments

No comments have been posted about 3D Tunnel from effect with color selection. Why not be the first to post a comment about 3D Tunnel from effect with color selection.

Post your comment

Subject:
Message:
0/1000 characters