[3booody]

كود :

Public Class Form1
   Dim rand As New Random
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox1.Text = GetNum()
   End Sub
   Function GetNum() As String
       Dim t As String = ""
       Do Until t.Length = 9
           t &= rand.Next(0, 10)
       Loop
       Return t
   End Function
End Class

 من 0 الى 10 تعني===> من 0 الى 9