Private Sub StBarCommand_Click()
    Dim lngIcon As Long
    lngIcon = LoadImage(App.hInstance, MAKEINTRESOURCE( 135 ), IMAGE_ICON,  16 ,  16 , LR_DEFAULTCOLOR)
    Call SendMessageLong(StatusBar1.hwnd, SB_SETICON,  2 , ByVal lngIcon)
    SetText StatusBar1.hwnd,  2 , SBT_SUNKEN, "Test text"
End Sub

Public Sub SetText(hStatBar As Long, _
                   bPart As Byte, _
                   wNewDrawOp As Integer, _
                   sText As String)
   'ф-ция устанавливает текст в панели StatusBar
   'Sets the specified part's text.
  '
  'bPart:zero-based part to set, 255 = simple mode text.
  'wNewDrawOp:text drawing operation.
  'sText:text to set

   Dim wCurDrawOp As Integer

   'Get the part's current drawing operation
   'before it might be updated below.
   wCurDrawOp = GetCurDrawOp(hStatBar, bPart, False)

   'Set the text w/ the drawing operation
   SendMessage hStatBar, SB_SETTEXT, ByVal bPart Or wNewDrawOp, ByVal sText
  
   'Redraw the status bar only if the part's drawing
   'operation changed (reduces flicker).
   If wCurDrawOp <> wNewDrawOp Then InvalidateRect1 hStatBar, ByVal  0 , True
  
End Sub
Private Function GetCurDrawOp(hStatBar As Long, _
                             bPart As Byte, _
                             fRtnString As Boolean) As String
  
   'Returns the current text drawing operation for the specified part.
   '
   'SB_GETTEXTLENGTH is used to determine the part's current
   'drawing operation. SB_GETTEXT will rtn the exact same value,
   'but requires a text buffer.
   '
   'When not in simple mode, SB_GETTEXTLENGTH  retrieves the
   'text length for the part specified by bPart (0-254, 255 parts max).
   'If in simple mode, SB_GETTEXTLENGTH will retrieve the simple
   'mode text length *only* if bPart specifies any *valid* part index.
   'The simple mode text length is NOT retrieved when bPart = 255
   '(as is used to set text w/ SB_SETTEXT). Also applies to
   'SB_GETTEXT.
   '
   'If fRtnString = True, returns the text drawing operation constant
   'string. If False, returns the text drawing operation constant value.

   Dim dwRtn As Long

   dwRtn = SendMessage(hStatBar, SB_GETTEXTLENGTH, ByVal bPart,  0 )

   'The text drawing operation for the specified
   'part is contained in the high word of dwRtn.
   dwRtn = (dwRtn And &HFFFF0000) \ &HFFFF&

   If fRtnString Then

     'Returning the string
      Select Case dwRtn
         Case SBT_SUNKEN:    GetCurDrawOp = "SBT_SUNKEN"
         Case SBT_NOBORDERS: GetCurDrawOp = "SBT_NOBORDERS"
         Case SBT_POPOUT:    GetCurDrawOp = "SBT_POPOUT"
      End Select

   Else

     'Returning the value
      GetCurDrawOp = dwRtn
  
   End If
End Function

Private Sub StBarCommand_Click()
    Dim lngIcon As Long
    lngIcon = LoadImage(App.hInstance, MAKEINTRESOURCE( 135 ), IMAGE_ICON,  16 ,  16 , LR_DEFAULTCOLOR)
    Call SendMessageLong(StatusBar1.hwnd, SB_SETICON,  2 , ByVal lngIcon)
    'SetText StatusBar1.hwnd, 2, SBT_SUNKEN, "Test text"
    StatusBar1.Panels( 3 ).Text = "       Test text"
End Sub