digitbox.bas

display the numbers in led digits

Attribute VB_Name = "modDigitBox"
Option Explicit


Public Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
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 Type Rect
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Public Const EDGE_SUNKEN = &HA&
Public Const BF_BOTTOMRIGHT = &HC
Public Const BF_TOPLEFT = &H3
Public Declare Function DrawEdge Lib "user32" (ByVal hdc As Long, qrc As Rect, ByVal edge As Long, ByVal grfFlags As Long) As Long