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.