more work on gtk & code cleanup

Pilz.Drawing.Drawing3D.OpenGLRenderer/Preview/ModelPreview.vb

@@ -136,12 +136,13 @@ Namespace PreviewN
             DoubleBuffered = True
 
             'glControl1
-            Me.glControl1 = New GLControl
-            Me.glControl1.BackColor = Color.Black
-            Me.glControl1.Location = New Point(0, 0)
-            Me.glControl1.MinimumSize = New Size(600, 120)
-            Me.glControl1.Name = "glControl1"
-            Me.glControl1.Anchor = AnchorStyles.Left Or AnchorStyles.Top Or AnchorStyles.Right Or AnchorStyles.Bottom
+            Me.glControl1 = New GLControl With {
+                .BackColor = Color.Black,
+                .Location = New Point(0, 0),
+                .MinimumSize = New Size(600, 120),
+                .Name = "glControl1",
+                .Anchor = AnchorStyles.Left Or AnchorStyles.Top Or AnchorStyles.Right Or AnchorStyles.Bottom
+            }
             Me.glControl1.Location = New Point(0, 0)
             Me.glControl1.Size = Me.ClientSize
             Me.glControl1.TabIndex = 0
@@ -268,7 +269,7 @@ Namespace PreviewN
 
         Private Sub glControl1_Wheel(sender As Object, e As MouseEventArgs)
             MyCamera.ResetMouseStuff()
-            MyCamera.UpdateCameraMatrixWithScrollWheel(CInt(Math.Truncate(e.Delta * (If(IsShiftPressed, 3.5F, 1.5F)))), camMtx)
+            MyCamera.UpdateCameraMatrixWithScrollWheel(Math.Truncate(e.Delta * (If(IsShiftPressed, 3.5F, 1.5F))), camMtx)
             savedCamPos = MyCamera.Position
             glControl1.Invalidate()
         End Sub