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

直接用自带的公式啊，worksheetfunction

需要一个button按钮，一个Label标签
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Lucky As String() = {"张三", "李四", "王五", "赵六", "神八"}
Dim r As Double = random_number(4, 0)
Label1.Text = Lucky(r)
End Sub
Private Function random_number(max As Integer, min As Integer) As Integer '定义一个取随机数的函数
Randomize()
random_number = (max - min) * Rnd() + min
Return random_number
End Function
End Class