Клик на картинке в форме GDI+

Public Class Form6
    Dim Bitmap1 As Bitmap
    Dim Grafika1 As Graphics
    Dim Bitmap1LocationX As Single
    Dim Bitmap1LocationY As Single
    Dim Bitmap1SizeX As Single
    Dim Bitmap1SizeY As Single
    
    Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Bitmap1 = My.Resources.ResourceManager.GetObject("Bitmap1")
        Grafika1 = CreateGraphics()
        Grafika1.DrawImage(Bitmap1, x:=Bitmap1LocationX, y:=Bitmap1LocationY, height:=Bitmap1SizeX, width:=Bitmap1SizeY)
    End Sub
 
    Private Sub Bitmap_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
 
        MessageBox.Show("Вы щёлкнули на картинке")
    End Sub
 
End Class

    Dim Rect As Rectangle
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim BM As Bitmap = New Bitmap("C:\1.png")
        Dim G As Graphics = Me.CreateGraphics
        Rect = New Rectangle(30, 30, BM.Width, BM.Height)
        G.DrawImage(BM, Rect)
    End Sub
 
    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        If Rect.Contains(e.Location) Then
            MessageBox.Show("Вы щёлкнули на картинке")
        End If
    End Sub