Conver From VB6 to .net 2005

I want convert some code from Vb6 to Vb.net 2005 there are 3 modules , contains function procedure .... it use common use defined fiction and APIs aslo Approximate LOC of a each module will be 1000 sample of the code Public EndDate As Date Public currentYear As Boolean Public ErrorHandler As Label Public conString As String Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal sBuffer As String, lSize As Long) As Long Public Declare Function ReleaseCapture Lib "user32" () As Long Public Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long Public Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const LB_FINDSTRING = &H18F Public Type POINTAPI X As Long Y As Long End Type Public Const RGN_COPY = 5 Public ResultRegion As Long Public PrinterDialog As New clsPrintDialog '-----------User Defined Constants--------------------- Public Const msgStrngNoPermisionToope = "Access Denied " Public Const Catring = "Catering " Public Const Takeaway = "Take away" '---------------------------------- Sub Main() [login to view URL] End Sub Public Sub Conect_To_DataBase() 'Call SetAttr(DBPath, vbNormal) 'On Error GoTo Erh: Set xindata = New Connection 'opening database globaly using ADO conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";Persist Security Info=False" conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=L:\est\[login to view URL];Persist Security Info=False;Jet OLEDB:Database Password=xinonsystems)(*&^12345" conString = "Provider = Microsoft.Jet.OLEDB.4.0; " & _ "Persist Security Info= False; " & _ "Data Source = " & DBPath & "; " & _ "Jet OLEDB:Database Password =xin12#$bj" [login to view URL] = conString [login to view URL] Dim RsConfig As New [login to view URL] [login to view URL] "Select * from Config", xindata, adOpenStatic, adLockPessimistic Do While Not [login to view URL] If RsConfig!Particular = "StartDate" Then StartDate = RsConfig!dtdata If RsConfig!Particular = "EndDate" Then EndDate = RsConfig!dtdata If RsConfig!Particular = "YearStatus" And RsConfig!strData = "CurrentYear" Then currentYear = True [login to view URL] Loop Exit Sub Erh: MsgBox [login to view URL] MsgBox [login to view URL] MsgBox "Check Network Connection Exist/Permision", vbInformation End Sub Function NewDate(DtTop As Integer, DtLeft As Integer) As Date [login to view URL] = DtLeft [login to view URL] = DtTop [login to view URL] vbModal NewDate = CldValue End Function