Visual Basic.NET - PREGUNTITA DE NOVATO

Efectivamente soy novato y tengo un problema con un bucle que supongo que es tonto pero no doy con la solucion.

Lo que estoy realizando es un programa que genere numeros aleatorios para por ejemplo la primitiva. Hago un array (matriz) de 6 numeros y genero con un bucle For y lleno la matriz y la muestro en un formulario... peroooo y aqui viene mi problema tonto, en algunas ocasiones me generan dos o tres numeros iguales y claro deberian ser 6 distintos. Y la verdad no se como aplicar el bucle para que cada vez que asigne un valor a un puesto del array me comruebe que es distinto a los que estan dentro ya asignados. Si alguien por favor podria echarme una manita se lo agradeceria ya que llevo ya muchas horas con esto y ya es por "mis cojones" perdonar la expresion. jajaja

Agrego el codigo que tengo:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Inicializar la clase Random
Dim Random As New Random()

' Iniciar Contador y Matriz
Dim i As Integer
Dim lp(4) As Integer

' Generar matriz y random para rellenar la matriz con numero entre 1 y 49
For i = 0 To 4
lp(i) = Random.Next(1, 49)
Next

' Ordenar Matriz
Array.Sort(lp)

' Imprimir en formulario valores
Label11.Text = Str(lp(0))
Label12.Text = Str(lp(1))
Label13.Text = Str(lp(2))
Label14.Text = Str(lp(3))
Label15.Text = Str(lp(4))
' Valor numero clave
Dim numero1 As Integer = Random.Next(1, 9)
Label16.Text = Str(numero1)
End Sub

dim valor as integer
dim y as integer

For i = 0 To 4
if i=0 then
lp(i) = Random.Next(1, 49)
else
valor=Random.Next(1, 49)
for y=0 to i
if valor=ip(y) then
valor=Random.Next(1, 49)
y=-1
end if
next
end if

Next

algo asi seria

SOY EL MEJOR
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Random As New Random()

' Iniciar Contador y Matriz
Dim i As Integer
Dim lp(6) As Integer
Dim numero As integer
Dim comprueba as integer

' Generar matriz y random para rellenar la matriz con numero entre 1 y 49
For i = 1 To 6
Randomize()
lp(i) = Random.Next(1, 49)
numero = lp(i)
For comprueba = 1 To i - 1
If numero = lp(comprueba) Then
i = i - 1
End If
Next

Next

' Ordenar Matriz
Array.Sort(lp)

' Imprimir en formulario valores
Label1.Text = Str(lp(1)) & " " & Str(lp(2)) & " " & Str(lp(3)) & " " & Str(lp(4)) & " " & Str(lp(5)) & " " & Str(lp(6))

' Valor numero clave
Dim numero1 As Integer = Random.Next(1, 9)
Label2.Text = Str(numero1)
End Sub

End Class