digger, ho risolto con questo:
VBNET Programming
Dim collisione_x, collisione_y As Boolean
Dim pb1_x1 = PictureBox1.Location.X
Dim pb1_x2 = PictureBox1.Location.X + PictureBox1.Width
Dim pb1_y1 = PictureBox1.Location.Y
Dim pb1_y2 = PictureBox1.Location.Y + PictureBox1.Height
Dim pb2_x1 = PictureBox2.Location.X
Dim pb2_x2 = PictureBox2.Location.X + PictureBox2.Width
Dim pb2_y1 = PictureBox2.Location.Y
Dim pb2_y2 = PictureBox2.Location.Y + PictureBox2.Height
collisione_x = (pb1_x1 >= pb2_x1 And pb1_x1 <= pb2_x2) Or (pb1_x2 >= pb2_x1 And pb1_x2 <= pb2_x2)
collisione_y = (pb1_y1 >= pb2_y1 And pb1_y1 <= pb2_y2) Or (pb1_y2 >= pb2_y1 And pb1_y2 <= pb2_y2)
If collisione_x And collisione_y Then
My.Computer.Audio.Play(My.Resources.pacman_eat, AudioPlayMode.Background)
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
ora però non riesco a fare un'altra cosa e cioè che quando la pb1 si scontra con il panel devo generare un'evento... ho provato con lo stesso codice delle pb (cambiando il codice dove serve) ma non funziona... come posso fare?