Как предотвратить обязательное создание временного файла в своей программе написанной на VB6?

Icon = LoadPicture(App.Path & "\new.ico")

Option Explicit
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As Any, pclsid As GUID) As Long
Private Declare Function IsEqualGUID Lib "ole32" (rguid1 As GUID, rguid2 As GUID) As Boolean
Private Declare Function CreateStreamOnHGlobal Lib "ole32" (ByVal hGlobal As Long, ByVal fDeleteOnRelease As CBoolean, ppstm As Any) As Long
Private Declare Function OleLoadPicture Lib "olepro32" (pStream As Any, ByVal lSize As Long, ByVal fRunmode As CBoolean, riid As GUID, ppvObj As Any) As Long
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long)
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
 
Private Enum CBoolean ' Enum members are Long data types
    CFalse = 0
    CTrue = 1
End Enum
 
Private Type GUID        ' 16 bytes (128 bits)
    dwData1 As Long      ' 4 bytes
    wData2 As Integer    ' 2 bytes
    wData3 As Integer    ' 2 bytes
    abData4(7) As Byte   ' 8 bytes, zero based
End Type
 
Private Const sIID_IPicture = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}"
Private Const S_OK = 0 ' Indicates successful HRESULT
Private Const GMEM_MOVEABLE = &H2
 
Public Function PictureFromBits(abPic() As Byte) As IPicture ' Not a StdPicture!!
    Dim nLow As Long
    Dim cbMem  As Long
    Dim hMem  As Long
    Dim lpMem  As Long
    Dim IID_IPicture As GUID
    Dim istm As stdole.IUnknown ' IStream
    Dim ipic As IPicture
    
    ' Get the size of the picture's bits
    On Error GoTo Out
    nLow = LBound(abPic)
    On Error GoTo 0
    cbMem = (UBound(abPic) - nLow) + 1
    
    ' Allocate a global memory object
    hMem = GlobalAlloc(GMEM_MOVEABLE, cbMem)
    If hMem Then
        ' Lock the memory object and get a pointer to it.
        lpMem = GlobalLock(hMem)
        
        If lpMem Then
            ' Copy the picture bits to the memory pointer and unlock the handle.
            MoveMemory ByVal lpMem, abPic(nLow), cbMem
            Call GlobalUnlock(hMem)
            
            ' Create an ISteam from the pictures bits (we can explicitly free hMem
            ' below, but we'll have the call do it here...)
            If (CreateStreamOnHGlobal(hMem, CTrue, istm) = S_OK) Then
                If (CLSIDFromString(StrPtr(sIID_IPicture), IID_IPicture) = S_OK) Then
                    ' Create an IPicture from the IStream (the docs say the call does not
                    ' AddRef its last param, but it looks like the reference counts are correct..)
                    Call OleLoadPicture(ByVal ObjPtr(istm), cbMem, CFalse, IID_IPicture, PictureFromBits)
                End If   ' CLSIDFromString
            End If ' CreateStreamOnHGlobal
        End If ' lpMem
        
        Call GlobalFree(hMem)
    End If ' hMem
Out:
End Function
 
Private Sub Form_Load()
    Dim bFile() As Byte
    
    Open App.Path & "\MOON05.ICO" For Binary As 1
        ReDim bFile(LOF(1) - 1)
        Get 1, , bFile
    Close 1
    
    'Me.Icon = PictureFromBits(bFile) ' Создаёт TMP, почему?
    Me.Icon = LoadPicture(App.Path & "\MOON05.ICO") ' Не создаёт TMP
End Sub

ExtractIconEx App.Path & "\MOON05.ICO", 0, 0, hIcon, 1
    DrawIconEx Picture1.hdc, 0, 0, hIcon, 0, 0, 0, 0, DI_NORMAL

ExtractIconEx App.Path & "\MOON05.ICO", 0, 0, hIcon, 1
    SendMessage hwnd, WM_SETICON, ICON_BIG, ByVal hIcon

Me.Icon = LoadPicture(App.Path & "\MOON05.ICO")