Hejsan.
Jag höll på med VB för länge sedan och har nästan glömt allt.
Och jag undrar om det är någon snäll människa som kan skriva ett färdigt script som gör att inskrivna tal/texter slumpas fram och visas i ett textfält.

Detta är det ända som behövs
Ett text fönster
En knapp som man trycker på så visas det olika tal/texter i text fönstret.

/Tack på förhand
/Jesper

ok här kommer en liten test. Exemplet skrivs in i en form med en CommandButton:cmdButton och en TextBox:txtText

Private Texter() As String

Private Sub Form_Load()
  'Initiera texter (Exempel tagna från ordspråkstråden i forumet Skrivklåda ;)
  ReDim Texter(5)
  Texter(0) = "Allt kommer punktligt till den som kan vänta"
  Texter(1) = "Eld i hjärtat ger rök i huvudet"
  Texter(2) = "Kärlek är egoism för två"
  Texter(3) = "Den som går i andras fotspår kommer aldrig först"
  Texter(4) = "Ett föredöme är bättre än tusen argument"
End Sub

Private Sub cmdButton_Click()
   Randomize
   txtText.Text = Texter(CInt(Rnd * 4)) '4:an byts ut mot maxindexet i Texter. 
                                                        'Som du ser ovan är det en 4:a
End Sub

Tack Jörgen Lindroos för hjälpen var exakt så jag menade =)
Tackar återigen!