Private Declare Function OleTranslateColor Lib “OLEPRO32.DLL” (ByVal OLE_COLOR _ As Long, ByVal HPALETTE As Long, pccolorref As Long) As Long’ convert a VB color constant to a COLORREF’ accepts both
‘ get the index of the active OptionButton in an arrayFunction OptionButtonIndex(optArray As Object) As Integer Dim ctrl As Control ‘ this means not found OptionButtonIndex = -1 For Each
When you plan to create more control of the same type you can save some clicks by selecting the control on the Toolbox with the mouse while you press the
The Microsoft Multimedia Control lets you easily determine the total playing time of an Audio CD: you only need to correctly initialize the control and then decipher the value returned
The following is a template for building collection class modules in a very quick and effective way. Copy-and-paste this code into Notepad, that save it to a file named “COLLECTION
Private Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Declare Function GetClientRect Lib “user32” (ByVal hWnd As Long, _ lpRect As RECT) As
Private Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Const SPI_GETWORKAREA = 48Private Declare Function SystemParametersInfo Lib “user32” Alias _ “SystemParametersInfoA” (ByVal uAction
Private Const SPI_SETSCREENSAVEACTIVE = 17Private Const SPI_GETSCREENSAVEACTIVE = 16Private Const SPIF_SENDWININICHANGE = &H2Private Const SPIF_UPDATEINIFILE = &H1Private Declare Function SystemParametersInfo Lib “user32” Alias _ “SystemParametersInfoA” (ByVal uAction As Long, ByVal
Private Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Declare Function GetWindowRect Lib “user32” (ByVal hWnd As Long, _ lpRect As RECT) As