[Genius Live]

كود :

Dim randomValue As Integer
Dim DS As New DataSet
Dim B As Integer

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SUB1()
Me.BindingContext(DS, "A").Position = randomValue
End Sub

كود :

Sub SUB1()
        Dim Sel As String = "SELECT Question AS E FROM table1 "
        Dim con As New SqlConnection("ConnectionString")
        If con.State = ConnectionState.Open Then con.Close()
        con.Open()
        Dim DataAdapter1 As New SqlDataAdapter(Sel, con)
        DS.Clear()
        DataAdapter1.Fill(DS, "A")
        con.Close()
        TextBox1.DataBindings.Add("Text", DS, "A.E")
        B = Me.BindingContext(DS, "A").Count
        SUB2()
        Me.BindingContext(DS, "A").Position = randomValue
    End Sub

كود :

Sub SUB2()
        Dim generator As New Random
        randomValue = generator.Next(0, B)
    End Sub

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SUB2()
Me.BindingContext(DS, "A").Position = randomValue
End Sub

والله أعلي وأعلم