On some systems the alpha channel was discarded before loading into the
alpha-DIB section. This is fixed by using the LR_CREATEDIBSECTION
option in the LoadImage call when reading the bitmap.
Attribute VB_Name = "mMain"
Option Explicit
Private Declare Sub InitCommonControls Lib "comctl32" ()
Public Sub Main()
InitCommonControls
Dim f As New frmBitmapEx
f.Show
End Sub