Something

Public Function GetSelectedFrames() As Object()
Dim l_lngItemCount As Long, l_lngIndex As Long, l_lngFrame As Long
Dim l_liItems() As ngListItem
Dim l_fraFrames() As Object, l_fraFrame As Fury2PoseFrame
    If lstPoses.SelectedItemCount > 0 Then
        l_liItems = lstPoses.SelectedItems
        For l_lngIndex = LBound(l_liItems) To UBound(l_liItems)
            l_lngItemCount = l_lngItemCount + SelectedSprite.Poses(l_liItems(l_lngIndex).Index).Frames.Count
        Next l_lngIndex
        ReDim l_fraFrames(0 To l_lngItemCount - 1)
        l_lngFrame = 0
        For l_lngIndex = LBound(l_liItems) To UBound(l_liItems)
            With SelectedSprite.Poses(l_liItems(l_lngIndex).Index)
                For Each l_fraFrame In .Frames
                    Set l_fraFrames(l_lngFrame) = l_fraFrame
                    l_lngFrame = l_lngFrame + 1
                Next l_fraFrame
            End With
        Next l_lngIndex
        GetSelectedFrames = l_fraFrames
    End If
End Function