Option Explicit

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function SendMessageAny Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Const WM_USER As Long = &H400
Private Const SB_GETRECT As Long = (WM_USER +  10 )
Private bCancelSend As Boolean

Private Sub Form_Load()
    
    Dim tRC As RECT
    
    SendMessageAny StatusBar1.hwnd, SB_GETRECT,  0 , tRC
        
    SetPic tRC
    MovePic tRC
    SetLabel
    
End Sub

Private Sub SetPic(ByRef tRC As RECT)
    With tRC
        .Top = (.Top * Screen.TwipsPerPixelY)
        .Left = (.Left * Screen.TwipsPerPixelX)
        .Bottom = (.Bottom * Screen.TwipsPerPixelY) - .Top
        .Right = (.Right * Screen.TwipsPerPixelX) - .Left
    End With
End Sub

Private Sub MovePic(ByRef tRC As RECT)

    With Picture1
        SetParent .hwnd, StatusBar1.hwnd
        .Move tRC.Left, tRC.Top, tRC.Right, tRC.Bottom
        .Visible = True
    End With

End Sub

Private Sub SetLabel()

    With Label1
         .Top =  0 
         .Left =  0 
         .Width = Picture1.ScaleWidth
         .Height = Picture1.ScaleHeight
         .Caption = "This is my text."
         .ForeColor = vbRed
         .FontBold = True
         .Font.Name = "Onyx"
    End With

End Sub