[RISOLTO][Aiuto] .X e .Y Random in un Panel

[Cato97]

avevo provato con questo ma non fungeva...

Spoiler:

    VBNET Programming

Dim xp1 = PictureBox1.Location.X + PictureBox1.Width
    Dim xp2 = PictureBox2.Location.X + PictureBox2.Width
    Dim x1 = PictureBox1.Location.X
    Dim x2 = PictureBox2.Location.X
    Dim yp1 = PictureBox1.Location.Y + PictureBox1.Height
    Dim yp2 = PictureBox2.Location.Y + PictureBox2.Height
    Dim y1 = PictureBox1.Location.Y
    Dim y2 = PictureBox2.Location.Y
If xp1 >= xp2 Or xp1 <= x2 And yp1 >= yp2 Or yp1 <= y2 Then
                pnt.Text += 1
                rnd_x = CInt(Int(((Panel1.Width - PictureBox2.Width) * Rnd()) + 1))
                rnd_y = CInt(Int(((Panel1.Height - PictureBox2.Height) * Rnd()) + 1))
                Dim a As New System.Drawing.Point(rnd_x, rnd_y)
                PictureBox2.Location = a
            End If

in attesa di una tua risposta, provo a ragionarci un po' su... magari risolvo da solo

EDIT: porca pu***na mi sto rintrucillendo :@
ho usato questo codice ma dà questo errore... il code penso sia quello giusto (ho fatto quello che mi dicevi... credo )

Spoiler:

    VBNET Programming

Dim pb1_x1 = PictureBox1.Location.X
        Dim pb1_x2 = PictureBox1.Location.X + Width
        Dim pb1_y1 = PictureBox1.Location.Y
        Dim pb1_y2 = PictureBox1.Location.Y + Height
        Dim pb2_x1 = PictureBox2.Location.X
        Dim pb2_x2 = PictureBox2.Location.X + Width
        Dim pb2_y1 = PictureBox2.Location.Y
        Dim pb2_y2 = PictureBox2.Location.Y + Height
        Dim collisione_x, collisione_y As Boolean
 
        If pb1_x1 >= pb2_x1 And pb1_x1 <= pb2_x2 Or pb1_x2 >= pb2_x1 And pb1_x2 <= pb2_x2 Then
            collisione_x = True
        ElseIf pb1_y1 >= pb2_y1 And pb1_y1 <= pb2_y2 Or pb1_y2 >= pb2_y1 And pb1_y2 <= pb2_y2 Then
            collisione_y = True
        End If
        If collisione_x = True & collisione_y = True Then
            pnt.Text += 1
            rnd_x = CInt(Int(((Panel1.Width - PictureBox2.Width) * Rnd()) + 1))
            rnd_y = CInt(Int(((Panel1.Height - PictureBox2.Height) * Rnd()) + 1))
            Dim a As New System.Drawing.Point(rnd_x, rnd_y)
            PictureBox2.Location = a
        End If

[Per vedere i link devi REGISTRARTI.]

RI-EDIT: ho provato anche con quest'altro codice ma non ha nessun effetto... come se il controllo non contenesse codice

Spoiler:

    VBNET Programming

Dim pb1_x1 = PictureBox1.Location.X
        Dim pb1_x2 = PictureBox1.Location.X + Width
        Dim pb1_y1 = PictureBox1.Location.Y
        Dim pb1_y2 = PictureBox1.Location.Y + Height
        Dim pb2_x1 = PictureBox2.Location.X
        Dim pb2_x2 = PictureBox2.Location.X + Width
        Dim pb2_y1 = PictureBox2.Location.Y
        Dim pb2_y2 = PictureBox2.Location.Y + Height
        Dim collisione_x, collisione_y As Integer
 
        If (pb1_x1 > pb2_x1 And pb1_x1 < pb2_x2) Or (pb1_x2 > pb2_x1 And pb1_x2 < pb2_x2) Then
            collisione_x = True
        ElseIf (pb1_y1 > pb2_y1 And pb1_y1 < pb2_y2) Or (pb1_y2 > pb2_y1 And pb1_y2 < pb2_y2) Then
            collisione_y = True
        End If
        If (collisione_x = True) And (collisione_y = True) Then
            pnt.Text += 1
            rnd_x = CInt(Int(((Panel1.Width - PictureBox2.Width) * Rnd()) + 1))
            rnd_y = CInt(Int(((Panel1.Height - PictureBox2.Height) * Rnd()) + 1))
            Dim a As New System.Drawing.Point(rnd_x, rnd_y)
            PictureBox2.Location = a
        End If

basta me ne vado a dormire -.-"