Hmm folgener code scheint nicht sauber zu laufen.
beim start der anwendung blebt das programm hängen.
es handelt sich um einen simplen PW generator


Timer1 :
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim a As Integer
        Dim b As String
        Static x As Integer

"Der Fehler muss irgendwo hier sein
        x = x + 1

        Do Until x = 4
            a = Int((Rnd() * 1) * 27)

            If a = 1 Then b = "a"
            If a = 2 Then b = "b"
            If a = 3 Then b = "c"
            If a = 4 Then b = "d"
            If a = 5 Then b = "e"
            If a = 6 Then b = "f"
            If a = 7 Then b = "g"
            If a = 8 Then b = "h"
            If a = 9 Then b = "i"
            If a = 10 Then b = "j"
            If a = 11 Then b = "k"
            If a = 12 Then b = "l"
            If a = 13 Then b = "m"
            If a = 14 Then b = "n"
            If a = 15 Then b = "o"
            If a = 16 Then b = "p"
            If a = 17 Then b = "q"
            If a = 18 Then b = "r"
            If a = 19 Then b = "s"
            If a = 21 Then b = "t"
            If a = 22 Then b = "u"
            If a = 23 Then b = "v"
            If a = 24 Then b = "w"
            If a = 25 Then b = "x"
            If a = 26 Then b = "y"
            If a = 27 Then b = "z"
        Loop

        TextBox1.Text = TextBox1.Text + b

    End Sub
hmm kann einer das prob erkennen? :S