SetWindowLong Com1.hwnd, GWL_STYLE, GetWindowLong(Com1.hwnd, GWL_STYLE) Or BS_ICON
        SendMessage Com1.hwnd, BM_SETIMAGE, IMAGE_ICON, ByVal lngIcon1

   Case WM_NOTIFY
      Static lvcd As NMLVCUSTOMDRAW
      MoveMemory lvcd, ByVal lParam, Len(lvcd)   ' every structs' member is a Long
      Select Case lvcd.nmcd.hdr.code
        Case NM_CUSTOMDRAW
...
                  If lvcd.nmcd.hdr.hwndFrom = Form1.Com1.hwnd Then
                    If state_id = PBS_DISABLED Then
                      DrawIconEx lvcd.nmcd.hdc, x, y, lngIcon1_bw, 24, 24, 0, 0, DI_NORMAL
                    Else
                      DrawIconEx lvcd.nmcd.hdc, x, y, lngIcon1, 24, 24, 0, 0, DI_NORMAL

    SetWindowTheme Com1.hwnd, StrPtr("VerticalShowDesktop"), 0

  Select Case Msg
    Case WM_CTLCOLORBTN:
      SetBkMode wParam, TRANSPARENT
      GetWindowRect lParam, rc
      tPt.x = rc.Left
      tPt.y = rc.Top
      MapWindowPoints 0, GetParent(lParam), tPt, 2
      rc.Left = tPt.x
      rc.Top = tPt.y
      SetBrushOrgEx wParam, -rc.Left, -rc.Top, tPt
      NewDigitsWindowProc = hbshBackDigits
      Exit Function
    ' ======================================================

                       Case CDDS_PREPAINT
                        Case CDDS_ITEMPREPAINT
                           lvcd.clrText =

                      Dim sPrintText As String
                      sPrintText = "Print this text"
                      SetTextColor lvcd.nmcd.hdc, vbBlue
                      DrawText lvcd.nmcd.hdc, sPrintText, Len(sPrintText), rc, DT_TOP 'Or DT_WORDBREAK

Private Declare Function TextOut Lib "gdi32.dll" Alias "TextOutA" _
  (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, _
  ByVal lpString As String, ByVal nCount As Long) As Long


    Case WM_NOTIFY
      Static lvcd As NMLVCUSTOMDRAW
      MoveMemory lvcd, ByVal lParam, Len(lvcd)   ' every structs' member is a Long
      Select Case lvcd.nmcd.hdr.code
        Case NM_CUSTOMDRAW
...
              CDDS_PREPAINT

                      Dim sPrintText As String
                      sPrintText = "Print this text"
                      SetBkMode wParam, TRANSPARENT
                      SetTextColor lvcd.nmcd.hdc, vbBlue
                      TextOut lvcd.nmcd.hdc, 0, 0, sPrintText, Len(sPrintText)