Перевод кода простейшего графического редактора с C# - Visual Basic .NET

Формулировка задачи:

приветик!!! помогите пожалуйста мне.. нужно Создать проект простейшего графического редактора... Переделать программку с C# на VB.NET Спасибочки. вот она:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Drawing.Drawing2D;
using System.Linq;
using System.Text;
using System.Windows.Forms;
 
namespace фигурки
{
    public partial class Form1 : Form
    {
        int mouseX;
        int mouseY;
 
        bool paintFigure = false;
        bool paintLine = false;
        bool paintBC = false;
        bool LineP = false;
        bool FigureP = false;
        bool BackColorP = false;
 
        Color MyColor;
        Pen MyPen;
 
        int PenWidth;
              
        public Form1()
        {
            InitializeComponent();
 
        }

        private void button1_Click(object sender, EventArgs e)
        {
            colorDialog1.ShowDialog();
        }
 
        private void radioButton1_CheckedChanged(object sender, EventArgs e)
        {
            FigureP = false;
            LineP = true;
            BackColorP = false;
 
            label5.Visible = true;
            comboBox4.Visible = true;
            button5.Visible = true;
            pictureBox3.Visible = true;
            
        }
 
        private void radioButton2_CheckedChanged(object sender, EventArgs e)
        {
            LineP = false;
            FigureP = true;
            BackColorP = false;

            label5.Visible = false;
            comboBox4.Visible = false;
            button5.Visible = false;
            pictureBox3.Visible = false;
 
        }
 
        private void radioButton3_CheckedChanged(object sender, EventArgs e)
        {

            FigureP = false;
            LineP = false;
            BackColorP = true;
 
            label5.Visible = false;
            comboBox4.Visible = false;
            button5.Visible = false;
            pictureBox3.Visible = false;

        }

        private void pictureBox1_MouseDown(object sender, MouseEventArgs e)
        {
            if (LineP)
            {
                paintLine = true;
            }
            if (FigureP)
            { 
                paintFigure = true; 
            }
            if (BackColorP)
            {
                paintBC = true;
            }
 
            mouseX = e.X;
            mouseY = e.Y;
        }
 
        private void pictureBox1_MouseUp(object sender, MouseEventArgs e)
        {
            paintFigure = false;
            paintLine = false;
            paintBC = false;
        }
 
        private void pictureBox1_MouseClick(object sender, MouseEventArgs e)
        {
            Graphics g = Graphics.FromHwnd(pictureBox1.Handle);
 
            if (paintFigure)
                {
                    
                }
            if (paintBC)
            {
                pictureBox1.BackColor = colorDialog1.Color;
            }
            if (e.Button == MouseButtons.Right)
            {
                pictureBox1.BackColor = Color.White;
                g.Clear(pictureBox1.BackColor);
            }
        }
 
        private void panel1_MouseMove(object sender, MouseEventArgs e)
        {
            
            pictureBox3.BackColor = colorDialog1.Color;
            
        }
 
        private void button5_Click(object sender, EventArgs e)
        {
            colorDialog1.ShowDialog();
        }

        private void pictureBox1_MouseMove(object sender, MouseEventArgs e)
        {
            Graphics g = Graphics.FromHwnd(pictureBox1.Handle);
            MyColor = colorDialog1.Color;
            PenWidth = Convert.ToInt32(comboBox4.Text);
            MyPen = new Pen(MyColor, PenWidth);
 
            if (paintLine)
            {
                int mouseXinc = e.X;
                int mouseYinc = e.Y;
 
                g.DrawLine(MyPen, mouseX, mouseY, mouseXinc, mouseYinc);
 
                mouseX = mouseXinc;
                mouseY = mouseYinc;
            }
        }
 
        private void button3_Click(object sender, EventArgs e)
        {
            colorDialog1.ShowDialog();
        }
 
      }
}

Решение задачи: «Перевод кода простейшего графического редактора с C#»

textual
                            Листинг программы 
                        

                            Public Class Form1
    Dim mouseX As Integer
    Dim mouseY As Integer
 
    Dim paintFigure As Boolean = False
    Dim paintLine As Boolean = False
    Dim paintBC As Boolean = False
    Dim LineP As Boolean = False
    Dim FigureP As Boolean = False
    Dim BackColorP As Boolean = False
 
    Dim MyColor As Color
    Dim MyPen As Pen
 
    Dim PenWidth As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        colorDialog1.ShowDialog()
    End Sub
 
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        FigureP = False
        LineP = True
        BackColorP = False
 
        Label5.Visible = True
        ComboBox4.Visible = True
        Button5.Visible = True
        PictureBox3.Visible = True
    End Sub
 
    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        LineP = False
        FigureP = True
        BackColorP = False
        Label5.Visible = False
        ComboBox4.Visible = False
        Button5.Visible = False
        PictureBox3.Visible = False
    End Sub
 
 
 
  
 
    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        FigureP = False
        LineP = False
        BackColorP = True
 
        Label5.Visible = False
        ComboBox4.Visible = False
        Button5.Visible = False
        PictureBox3.Visible = False
    End Sub
 
 
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        If (LineP) Then
            paintLine = True
        End If
            
        If (FigureP) Then
            paintFigure = True
        End If
           
        If (BackColorP) Then
            paintBC = True
        End If
           
 
        mouseX = e.X
        mouseY = e.Y
    End Sub
    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        paintFigure = False
        paintLine = False
        paintBC = False
    End Sub
 
 
    Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
        Dim g As Graphics = PictureBox1.CreateGraphics
 
        If paintFigure Then
 
        End If
               
        If paintBC Then
            PictureBox1.BackColor = ColorDialog1.Color
        End If
            
        If e.Button = MouseButtons.Right Then
 
            PictureBox1.BackColor = Color.White
            g.Clear(PictureBox1.BackColor)
 
        End If
 
           
    End Sub
 
   
 
  
 
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        Dim g As Graphics = PictureBox1.CreateGraphics
        MyColor = ColorDialog1.Color
        PenWidth = Convert.ToInt32(ComboBox4.Text)
        MyPen = New Pen(MyColor, PenWidth)
 
        If (paintLine) Then
 
            Dim mouseXinc As Integer = e.X
            Dim mouseYinc As Integer = e.Y
 
            g.DrawLine(MyPen, mouseX, mouseY, mouseXinc, mouseYinc)
 
            mouseX = mouseXinc
            mouseY = mouseYinc
 
        End If
            
    End Sub
 
   
    
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        ColorDialog1.ShowDialog()
 
    End Sub
 
    Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        PictureBox3.BackColor = ColorDialog1.Color
    End Sub
 
    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
 
    End Sub
End Class
                        