Public Shared Function Percent(ByVal complete As Single, ByVal total As Single, ByVal maxPercentage As Single) As Single Return (complete / total) * maxPercentage End Function