[?]Dynamische Picturebox Location

[coladose]

 Spoiler

Hallo zusammen
hier bin ich wieder mit einem neuen Problem.
Wie der Titel schon sagt, geht es diesmal um die dynamische Position der Picturebox auf meiner Form.

Meine Sub sieht so aus:

PHP Code:

Public Sub PicPlace()
        Dim rnW As Integer = 0
        Dim rnH As Integer = 0
        Dim rd As New Random

        picHead.Visible = True
        picHead.ImageLocation = "head.png"


        Do Until GetAsyncKeyState(VK_E) = True

            rnW = rd.Next(50, Me.Width - 50)
            rnH = rd.Next(50, Me.Height - 50)


            picHead.Location = New Point(rnW, rnH)
            System.Threading.Thread.Sleep(500)
            Application.DoEvents()
       
        Loop

        Exit Sub

    End Sub 


Nur wenn ich nach dem Verändern der Position eine Messagebox einfüge wird das bild angezeigt, bzw. auch wenn ich den Loop beende.

Ich will aber, dass mir mein Bild immer angezeigt wird.
Ich hoffe jmd kann mir helfen.

Ich reinstalliere mein VS. Der Compiler will mich trollen. Sorry für die Belästigung

[GodHacker]

Wie war den nun die Lösung?

[coladose]

Es war alles richtig. Außer, dass es durch den kleinen Delay laggt. Legt man ihn höher läuft alles.

[Kraizy​]

Vergiss am besten mal ganz schnell DoEvents() und klatsch dein Code lieber in nen extra Thread.

[coladose]

Jo, somit läuft das auch flüssiger, danke.