hmm ich habe jetzt
Code:
Dim random As Short
Randomize()
random = random(1, 2)
Select random
Case Is = 1
TextBox1.Text = "123456"
Case Is = 2
TextBox1.Text = "654321"
ausprobirt aber dan kam beim debuggen immer folgende fehlermeldungen
Code:
Fehler 1 Der Ausdruck ist kein Array oder keine Methode, und kann keine Argumentliste haben. C:\Dokumente und Einstellungen\ich\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\WindowsApplication1\Form1.vb 9 18 WindowsApplication1
und
Code:
Fehler 2 "Select Case" muss mit einer entsprechenden "End Select"-Anweisung enden. C:\Dokumente und Einstellungen\ich\Lokale Einstellungen\Anwendungsdaten\Temporary Projects\WindowsApplication1\Form1.vb 15 13 WindowsApplication1
pls help!