take a.look at Random....ex
Private Sub Button1_Click(...)
Dim rnd As New Random
Me.Label1.Text = rnd.Next(1, 11)
End Sub
i believe the .Next method's parameters are
first number = base, bottom number (inclusive)
second number = highest number (non inclusive)
this will give you a "random" number between 1 and 11
hope this helps