Решил перейти на Pure Basic

Private Sub Form_Load()
MsgBox App.Path, vbOKOnly, "Моя программа тут:"
End Sub

' Объявляем константы и функции WIN API32
Const IMAGE_BITMAP = 0
Const LR_LOADFROMFILE = &H10
Const IMAGE_ICON = 1
Const IMAGE_CURSOR = 2
Const IMAGE_ENHMETAFILE = 3
Const CF_BITMAP = 2
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long
Private Sub Form_Load()
     Dim hDC As Long, hBitmap As Long
    'Грузим изображение в память
    hBitmap = LoadImage(App.hInstance, "c:\windows\StartLogo.bmp", IMAGE_BITMAP, 320, 200, LR_LOADFROMFILE)
    If hBitmap = 0 Then
        MsgBox "Ошибка загрузки изображения"
        Exit Sub
    End If
    'Открываем буфер обмена
    OpenClipboard Me.hwnd
    'Очищаем  буфер обмена
    EmptyClipboard
    'Вставляем изображение в  буфер обмена
    SetClipboardData CF_BITMAP, hBitmap
    'Проверяем, есть ли там наше изображение
    If IsClipboardFormatAvailable(CF_BITMAP) = 0 Then
        MsgBox "Ошибка при помещении изображения в буфер обмена!!"
    End If
    'Закрываем буфер обмена
    CloseClipboard
    'выводим изображение на форму средствами VB6
    Me.Picture = Clipboard.GetData(vbCFBitmap)
End Sub