Visual Basic - Eleccion al azar

Hola usuarios, quiero saber como puedo realizar un sistema de numeros al azar en visual, teniendo como ejemplo una funcion que me permita digitar un cmd y ver tres numeros del 1 al 50 sin repetir, como un sorteo de loteria. Gracias de anticipado.

Necesitas

un form
tres labels --> Nombres por defecto Label[x]
un CommandButon --> Nombre por defecto CommandButton

----------------------

Private Sub Command1_Click()
Dim num1 As Integer
Dim num2 As Integer
Dim num3 As Integer

Randomize
num1 = Int((50 * Rnd) + 1)

Do
Randomize
num2 = Int((50 * Rnd) + 1)
DoEvents
Loop While (num2 = 1)

Do
Randomize
num3 = Int((50 * Rnd) + 1)
DoEvents
Loop While (num3 = 1 Or num3 = 1)

Label1.Caption = num1
Label2.Caption = num2
Label3.Caption = num3
End Sub