Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As _ Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongDeclare Function GetWindowLong Lib “user32” Alias
Private Declare Function GetDesktopWindow Lib “user32” () As LongPrivate Declare Function GetDC Lib “user32” (ByVal hWnd As Long) As LongPrivate Declare Function GetDeviceCaps Lib “gdi32” (ByVal hDC As Long, _
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
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
‘ 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
‘ make a modeless form modal” this procedure should be called by passing TRUE’ in the 2nd argument to make the form modal, and’ called again with FALSE in the