you know how big the list is (List.Count) so you can make a random number from 1 to Count. Then loop through the list with For m:MyType = Each In MyList and keep a counter incrementing each time and when the counter is the same as the precalculated random number, use Exit to break out of the list and m is set to the random type.
Hope that makes sense.
Hope that makes sense.