Visual Basic - URGENTE!!

Necesito algun ejemplillo que tengais de un programilla que utilize el Random, es para generar un sorteo...

Gracias de antemano..

inserta un textbox y un commandbutton y pega ese codigo... xao, si tienes alguna duda agregame al msn

Private Sub Command1_Click()
Dim i As Integer
Randomize
Text1.Text = Rnd(i)
End Sub

Te he agregado a mi messenger....que te quiero preguntar una cosilla