Fixed bug with icons not drawing when using VB6 MSCOMCTL.OCX ImageList
Added Mouse Wheel support. Thanks to Chris Eastwood at vbCode Library for the suggestion.
vbAccelerator - Contents of code file: mMain.bas
Attribute VB_Name = "mMain" Option Explicit Private Declare Sub InitCommonControls Lib "COMCTL32.DLL" () Private Declare Function SetErrorMode Lib "kernel32" (ByVal wMode As Long) As Long Private Const SEM_FAILCRITICALERRORS = &H1 Private Const SEM_NOGPFAULTERRORBOX = &H2 Private Const SEM_NOOPENFILEERRORBOX = &H8000 Private m_bInIDE As Boolean Public Sub Main() ' we need to call InitCommonControls before we ' can use the alpha support in the ImageList. ' Note this will only work when the control is ' being used as an OCX InitCommonControls ' now start the application On Error GoTo 0 frmTestARListBar.Show End Sub Public Sub UnloadApp() If Not InIDE() Then SetErrorMode SEM_NOGPFAULTERRORBOX End If End Sub Public Property Get InIDE() As Boolean Debug.Assert (IsInIDE()) InIDE = m_bInIDE End Property Private Function IsInIDE() As Boolean m_bInIDE = True IsInIDE = m_bInIDE End Function