[請問]各位大大VB2008的小問題!

老搞

請教各位大大一下VB2008的問題
下面是老師出的小作業
小弟還是初學者VB很爛
想請教一下除了這個方法還有什麼更厲害的方法呢?
就是不用寫一拖拉庫的程式碼
請各位大大賜教 謝謝




Public Class Form1
    Dim num(6), i As Integer
    Dim T As Boolean
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        i = 0
        Do While i < 6
            Dim generator As New Random
            Dim randomValue As Integer
            randomValue = generator.Next(1, 50)
            num(i) = randomValue
            T = True
            If i > 0 Then
                For r = 0 To i - 1
                    If num(i) = num(r) Then
                        T = False
                        Exit For
                    End If
                Next
            End If
            If T = True Then i += 1
        Loop
        For s = 0 To 5
            ListBox1.Items.Add(num(s))
        Next
    End Sub
End Class