Зачем некоторые программисты используют GlobalAlloc? По мне так это глупость полнейшая

Dim cPic As StdPicture
    
    Set cPic = LoadPictureEx(files_list(List1.ListIndex).path)
    
    Picture1.cls
    DrawFit Picture1.hdc, cPic, Picture1.ScaleWidth, Picture1.ScaleHeight
    Picture1.Refresh

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(0, 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 hMem, 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