请高手指点：怎样把C#程序转化为vb.net程序，万分感谢

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Data.SqlClient

Namespace prohor
Public Partial Class OpenPro
Inherits Form
Private m_connection As SqlConnection
Public frm1 As form
Public Sub New(frm1 As form)
InitializeComponent()
Me.frm1 = frm1
End Sub

Private Sub OpenPro_Load(sender As Object, e As System.EventArgs) Handles OpenPro.Load
Dim constr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\App_Data\yccs.mdf;Integrated Security=True;User Instance=True;"
m_connection = New SqlConnection(constr)
Dim m_DA As New SqlDataAdapter("SELECT * FROM YcwxDate", m_connection)
Dim m_sqlCommandBuilder As New SqlCommandBuilder(m_DA)
Try
m_connection.Open()
Dim m_dtYcwx As New DataTable()
m_DA.Fill(m_dtYcwx)
Dim i As Integer = 0
While i < m_dtYcwx.Rows.Count
If Not comboBox1.Items.Contains(m_dtYcwx.Rows(i)("油藏名称").ToString()) Then
comboBox1.Items.Add(m_dtYcwx.Rows(i)("油藏名称").ToString())

End If
System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While
Catch generatedExceptionName As Exception
Throw
End Try
End Sub

Private Sub button1_Click(sender As Object, e As System.EventArgs) Handles button1.Click
If comboBox1.Text <> "" Then
m_connection.Dispose()
m_connection.Close()
Me.DialogResult = DialogResult.OK
Else
MessageBox.Show("尚未选中工程")
End If
End Sub

Private Sub button2_Click(sender As Object, e As System.EventArgs) Handles button2.Click
m_connection.Dispose()
m_connection.Close()
Me.DialogResult = DialogResult.Cancel
End Sub

Private Sub label1_Click(sender As Object, e As System.EventArgs) Handles label1.Click

End Sub

End Class
End Namespace