При создании hBitmap и IPictureDisp из него что я должен удалять при выгрузке формы - VB

Формулировка задачи:

Т.е.

Public Function CreateGradientBack( ...) As IPictureDisp
...
 hdcRef = GetDC(hwndRef)
 hdcDst = CreateCompatibleDC(hdcRef)
 hbmDst = CreateCompatibleBitmap(hdcRef, b * s, u * 2 + 1)
 hbmOld = SelectObject(hdcDst, hbmDst)
 GradientFill hdcDst, v0(0), 2 * (b + 1), t(0), b * 2, GRADIENT_FILL_TRIANGLE
 GradientFill hdcDst, v1(0), 2 * (b + 1), t(0), b * 2, GRADIENT_FILL_TRIANGLE
 GradientFill hdcDst, v2(0), 2 * (b + 1), t(0), b * 2, GRADIENT_FILL_TRIANGLE
 SelectObject hdcDst, hbmOld: hbmOld = 0
 DeleteDC hdcDst: hdcDst = 0
 
 Set CreateGradientBack = CreateIPictureDispFromHBITMAP(hbmDst)
 'DeleteObject hbmDst: hbmDst = 0
End Function

Public Function CreateIPictureDispFromHBITMAP( _
   ByVal hBitmap As Long, _
   Optional ByVal hPal As Long = 0, _
   Optional ByVal fPictureOwnsHandle As Boolean = True) As IPictureDisp
 Dim IID_IDispatch As GUID
 Dim Pic As PicBmp

 With Pic
    .Size = Len(Pic)
    .Type = PICTYPE_BITMAP
    .hBmp = hBitmap
    .hPal = hPal
 End With
 With IID_IDispatch
    .Data1 = &H20400
    .Data4(0) = &HC0
    .Data4(7) = &H46
 End With
 OleCreatePictureIndirect Pic, IID_IDispatch, -fPictureOwnsHandle, _
                          CreateIPictureDispFromHBITMAP
End Function

По идее я ему должен сделать

DeleteObject hbmDst: hbmDst = 0

Но если я это сделаю на этапе создания то моя
As IPictureDisp
будет бесполезна.
В коде я делаю:

Set g_picRebarBackground = CreateGradientBack(g_hwndToolBar, Form1.ScaleWidth, _
    With rbBand
       .cbSize = LenB(rbBand)
       .fMask = RBBIM_BACKGROUND
       .hbmBack = g_picRebarBackground.Handle
    End With
    SendMessage g_hwndRebar, RB_SETBANDINFOA, uBandCount - 1, rbBand

Варианты ответа:
1) DeleteObject g_picRebarBackground
2) DeleteObject g_picRebarBackground.Handle
3) Set g_picRebarBackground = Nothing
4) ваабще ничего не делать
Если бы g_picRebarBackground создавался один раз я бы забил.
Но при Form_resize я его перерисовываю (градиент растянут на ширину Rebar, перерисовка вполне себе культурно внешне работает):

Private Sub Form_Resize()
...
    DeleteObject g_picRebarBackground '?????????????????
    
    Set g_picRebarBackground = CreateGradientBack(g_hwndToolBar, Form1.ScaleWidth, _
     rRB.Bottom - rRB.Top)
    Dim rbBand As REBARBANDINFO
    With rbBand
       .cbSize = LenB(rbBand)
       .fMask = RBBIM_BACKGROUND
       .hbmBack = g_picRebarBackground.Handle
    End With
    SendMessage g_hwndRebar, RB_SETBANDINFOA, 0, rbBand
    Call RedrawWindow(g_hwndToolBar, ByVal 0&, ByVal 0&, RDW_INVALIDATE Or RDW_ERASE)

Задница в том, что если я чего-то недоглядел и ресурсы эти жрутся, а не авто-удаляются (как хотелось бы), то это задница, поэтому опасения не праздные.
Да, и еще.
Если сделать
1) DeleteObject g_picRebarBackground
2) DeleteObject g_picRebarBackground.Handle
а при этом в коде не выполнялось
set = g_picRebarBackground
то прога при этом вылетит
Error91: Object NOT set
Как записать
If (g_picRebarBackground) then DeleteObject
(будем считать, я не знаю точно был ли он Set -делается в завис. от OS, от выбранного стиля и т.п., юзер мог допустим отключить Темы в процессе работы - я специально данное действо не отслеживаю -пускай перегружает если интерфейс сильно съехал)

Решение задачи: «При создании hBitmap и IPictureDisp из него что я должен удалять при выгрузке формы»

textual
                            Листинг программы 
                        
                            If Not g_picRebarBackground Is Nothing Then Set g_picRebarBackground = Nothing