Vill att mitt program skall välja ut text till tre olika txt rutor
från en lista bestående av ord som hör ihop i poster om tre och tre.

Du får nog förklara lite bättre ! Du har en ListBox med 3 ord osv. 3 ord ,
dvs var 3 :e ord hör ihop.
Du vill pocka denna 3-grupp och slumpa ut i en av 3 TextBoxar ? eller ?

Vad tror du om denna princip?

Lägg in orden i en array med denna struktur
Dim strOrd(100,3) As String

När du lagt in orden i arrayen kan du använda slumpfunktionen för att välja vilken rad av ord som ska visas i textrutorna.
Dim lngIndex As Long
lngIndex = Int(Rnd(Now()) * 100) + 1

Sen visar du texten i textboxarna
Text1.Text = strOrd(lngIndex,1)
Text2.Text = strOrd(lngIndex,2)
Text3.Text = strOrd(lngIndex,3)

Hoppas detta var vad du sökte.

Mvh, Janne

Det är viktigt at initiera random nummer generatorn med randomize:

<code>
Private Sub Form_Load()
Randomize
End Sub

lngIndex = Int(Rnd() * 100 + 1)
Text1.Text = strOrd(lngIndex,1)
Text2.Text = strOrd(lngIndex,2)
Text3.Text = strOrd(lngIndex,3)
</code>

Oooops! Det var ett tag sedan jag använde Rnd(). Tur att MS är alerta :-)

//Janne

Oki så här blir det
<code>
Option Explicit

Private Sub Form_Load()
Randomize
'Nu gäller detta under tiden programmet går
'och det kommer att bli olika varje gång
'du startat programmet
End Sub

Private Sub Command1_Click()
Dim myRnd As Long
myRnd = Int(Rnd * 3)
'Nu kommer du att få heltal mella 0-2
'Vill du ha 1-3 får du skriva myRnd = Int(Rnd * 3)+1
End Sub
</code>