VB.NET的随机数抽取问题

以前用的VB，VB.NET用不来，所以求教下，
有一个数组，如下，每次从数组中抽取数量不等的出来，然后输出到label1上面，
看了很多都是用的Dim r As New Random，但用不来- -！ 求教VB.NET怎么写？
Lucky(1) = "张三"
Lucky(2)= "李四"
Lucky(3) = "王五"
Lucky(4) = "赵六"
Lucky(5)= "神八"