New PrioSet (gb.data)

Dim hPrioSet As PrioSet
hPrioSet = New PrioSet ( )