revert to VB and update to new project file format

Pilz.Drawing/PointD.vb

@@ -0,0 +1,31 @@
+Public Class PointD
+
+    Public Property X As Double
+    Public Property Y As Double
+
+    Public Sub New()
+        X = 0
+        Y = 0
+    End Sub
+
+    Public Sub New(x As Double, y As Double)
+        Me.X = x
+        Me.Y = y
+    End Sub
+
+    Public Shared ReadOnly Property Empty As PointD
+        Get
+            Return New PointD
+        End Get
+    End Property
+
+    Public Shared Operator =(val1 As PointD, val2 As PointD) As Boolean
+        Return val1.X = val2.X AndAlso val1.Y = val2.Y
+    End Operator
+
+    Public Shared Operator <>(val1 As PointD, val2 As PointD) As Boolean
+        Return val1.X <> val2.X OrElse val1.Y <> val2.Y
+    End Operator
+
+
+End Class