//Metodo para ver si colisionan dos objetos según los píxeles
        private bool CheckPixelCollision(int Image1_x, int Image1_y, int Image2_x, int Image2_y, Bitmap Image1, Bitmap Image2)
        {
            bool intersected = false;//Por defecto no colisionaran
 
            //Se va a realizar la comprobación píxel por píxel
           for (int i = 0; i < Image1.Width; i++)
           {
               for (int j = 0; j < Image1.Height; j++)
               {
                   Color Image1_color = Image1.GetPixel(i, j);
                   if (Image1_color.A != 0)//Se comprueba primero si el pixel de la imagen 1 no es transparente
                   {
 
                       for (int k = 0; k < Image2.Width; k++)
                       {
                           if (Image1_x + i == Image2_x + k)//Vemos si colisionan los pixeles
                           {
                               for (int l = 0; l < Image2.Height; l++)
                               {
 
                                   Color Image2_color = Image2.GetPixel(k, l);
                                   if (Image2_color.A != 0)//Comprobamos si no es transparente el píxel de la imagen 2
                                   {
                                       if (Image1_y + j == Image2_y + l)//Vemos si colisionan los pixeles 
                                       {
                                           intersected = true;
 
 
                                       }
                                   }
 
                               }
                           }
                       }
                   }
              }
           }
 
           if (intersected == true)
           {
               return true;//Devuelve true si colisionan
           }
           else
           { 
               return false; //Si no colisionan devuelve false
           }
 
 
 
 
 
        }

Imports System.Drawing.Drawing2D
 
Public Class Form1
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 
        Dim A As New GraphicsPath
        Dim B As New GraphicsPath
 
        'Las coordenadas y tamaños son solo de ejemplo'
        A.AddRectangle(New Rectangle(10, 50, 100, 200))
        B.AddRectangle(New Rectangle(30, 69, 200, 100))
 
        'Se dibujan los rectangulos de ejemplo'
        e.Graphics.FillPath(Brushes.Green, A)
        e.Graphics.FillPath(Brushes.Red, B)
 
        'Se guardan las regiones de los rectangulos'
        Dim RegionA As New Region(A)
        Dim RegionB As New Region(B)
 
        'Se guarda en RegionA la intercepción que existe entre A y B'
        RegionA.Intersect(RegionB)
 
        'Se pinta la region intercepta'
        e.Graphics.FillRegion(Brushes.Blue, RegionA)
 
        Dim Punto As PointF = RegionA.GetBounds(e.Graphics).Location
 
        'Si la region no esta vacia, entonces estamos en presencia'
        'de una intercepcion, ya que hemos logrado pintarla'
        If Not RegionA.IsEmpty(e.Graphics) Then
            e.Graphics.DrawString("Intercepción", Me.Font, Brushes.Red, Punto.X, Punto.Y)
        End If
 
    End Sub
 
End Class