Can you insert an image (jpg) in the caption (title) portion of a userform?

OK, here is the code you need to set the icon of a userform. Change the path and filename in the code as needed.

The code goes into the userform's code module.

Private Declare Function FindWindow _

    Lib "user32" Alias "FindWindowA" _

   (ByVal lpClassName As String, _

    ByVal lpWindowName As String) As Long

Private Declare Function ExtractIcon _

    Lib "shell32.dll" Alias "ExtractIconA" _

   (ByVal hInst As Long, _

    ByVal lpszExeFileName As String, _

    ByVal nIconIndex As Long) As Long

Private Declare Function SendMessage _

    Lib "user32" Alias "SendMessageA" _

   (ByVal hWnd As Long, _

    ByVal wMsg As Long, _

    ByVal wParam As Integer, _

    ByVal lParam As Long) As Long

Private Const WM_SETICON = &H80

Private Sub UserForm_Initialize()

    Dim strIconPath As String

    Dim lngIcon As Long

    Dim lnghWnd As Long

    ' Change to the path and filename of an icon file

    strIconPath = "C:\Program Files (x86)\Microsoft Office\Office14\MSN.ico"

    ' Get the icon from the source

    lngIcon = ExtractIcon(0, strIconPath, 0)

    ' Get the window handle of the userform

    lnghWnd = FindWindow("ThunderDFrame", Me.Caption)

    'Set the big (32x32) and small (16x16) icons

    SendMessage lnghWnd, WM_SETICON, True, lngIcon

    SendMessage lnghWnd, WM_SETICON, False, lngIcon

End Sub