LaserShow Credits or Picture Writer *UPDATE*
![Visual Basic 6, or VB Classic Visual Basic 6, or VB Classic](https://www.fortypoundhead.com//assets/img/icons/v7/vb6.png)
This code writes images to a form using lines (Look like laser beams) and lets the writed text or picture go down smoothly, Now the laser moves also and the writed text waits at the en of the form until the new one arrives.
Original Author: Peter Hebels
API Declarations
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
About this post
Posted: 2002-06-01
By: ArchiveBot
Viewed: 90 times
Categories
Attachments
LaserShow_628963172002.zip
Posted: 9/3/2020 3:45:00 PM
Size: 24,713 bytes
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.