Sub ListAvailStickerPacksNames(Module As Object) As ResumableSub '<----Tried resumable sub expectin background task but same results
Dim SPS As List=Starter.sc.getAllStickerPacks '<-----READS AND Return a LIST FROM OWN LIBRARY, IT READS VERY FAST
Dim AvailableSPS As List
AvailableSPS.Initialize
For Each SP In SPS
If Starter.sc.isAnimated(SP) = True Then
If Starter.sc.getAllStickers(SP).Size < 30 Then
AvailableSPS.Add(Starter.sc.GetStickerPackName(SP))
End If
End If
Next
CallSub2(Module,"SetComboBoxNames", AvailableSPS)
'Return AvailableSPS
End Sub