Attempt to get pixel coords on click

MCPixelArtCrafter/Controls/PictureBoxPAZ.vb

@@ -31,7 +31,7 @@ Public Class PictureBoxPAZ
         BorderStyle = BorderStyle.Fixed3D
         PanableAndZoomable = True
     End Sub
-
+#Region "Properties"
     ''' <summary>
     ''' Get or Set the property to enable(disable) Pan and Zoom
     ''' </summary>
@@ -80,6 +80,18 @@ Public Class PictureBoxPAZ
     ''' Grid spacing (0-No grid)
     ''' </summary>
     Public Property GridSpacing As Integer = 0
+
+    Public ReadOnly Property MousePos As Point
+        Get
+            Dim CP = PointToClient(MousePosition)
+            Dim X = (tX * _zoomScale - CP.X) / _zoomScale
+            Dim Y = (tX * _zoomScale - CP.Y) / _zoomScale
+            Return New Point(X, Y)
+            'Dim IP = New Point(tX, tY).Multiply(_zoomScale)
+            'Return CP.Substract(IP).Divide(_zoomScale)
+        End Get
+    End Property
+#End Region
     Protected Overrides Sub OnPaint(ByVal pe As PaintEventArgs)
         If IsDisposed Then Return
 
@@ -232,3 +244,8 @@ Public Class PictureBoxPAZ
         _zoomScale = Math.Max(_zoomScale, _zoomMin)
     End Sub
 End Class
+'TODO: Fix grid 
+'Try alternative pixel render
+'https://stackoverflow.com/questions/40498312/c-sharp-create-grid-for-painting-pixels-and-rendering-text
+'Or make new bitmap with max zoom and grid
+

MCPixelArtCrafter/Extensions.vb

@@ -0,0 +1,15 @@
+Imports System.Runtime.CompilerServices
+Module Extensions
+    <Extension>
+    Public Function Divide(p As Point, n As Double) As PointF
+        Return New PointF(p.X / n, p.Y / n)
+    End Function
+    <Extension>
+    Public Function Multiply(p As Point, n As Double) As PointF
+        Return New PointF(p.X * n, p.Y * n)
+    End Function
+    <Extension>
+    Public Function Substract(p1 As Point, p2 As Point) As Point
+        Return New Point(p1.X - p2.X, p1.Y - p2.X)
+    End Function
+End Module

MCPixelArtCrafter/Forms/MapPreview.vb

@@ -29,4 +29,8 @@ Public Class MapPreview
     Private Sub MapPreview_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
         MapResult = Nothing
     End Sub
+
+    Private Sub PB_Click(sender As Object, e As EventArgs) Handles PB.Click
+        Console.WriteLine(PB.MousePos.ToString)
+    End Sub
 End Class

MCPixelArtCrafter/MCPixelArtCrafter.vbproj

@@ -166,6 +166,7 @@
     <Compile Include="DataClasses\MapColor.vb" />
     <Compile Include="DataClasses\MapColorsCollection.vb" />
     <Compile Include="DataClasses\MapResult.vb" />
+    <Compile Include="Extensions.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>