Dim Texte(9) As String

  

Private Sub Form_Load()



  Texte(0) = "Test 0"

  Texte(1) = "Test 1"

  Texte(2) = "Test 2"

  Texte(3) = "Test 3"

  Texte(4) = "Test 4"

  Texte(5) = "Test 5"

  Texte(6) = "Test 6"

  Texte(7) = "Test 7"

  Texte(8) = "Test 8"

  Texte(9) = "Test 9"



End Sub



Private Sub Command1_Click()



  Randomize

  Text1.Text = Texte(Int(Rnd * 10))



End Sub

<script type="text/javascript" language="javascript">

var lnk=new Array();



lnk[0]="Text 1"

lnk[1]="Text 2"

lnk[2]="Text 3" 

z=Math.floor(Math.random()*lnk.length)

za="<font size=2><font face=\"Arial\">"

ze="</font></font>"

if (lnkZaubertinte: [>"") {

document.write(lnkZaubertinte: [)

}

</script>