* roottypes.cs: Rename from tree.cs.

[mono.git] / mcs / class / Microsoft.VisualBasic / Test / standalone / 5023.vb

diff --git a/mcs/class/Microsoft.VisualBasic/Test/standalone/5023.vb b/mcs/class/Microsoft.VisualBasic/Test/standalone/5023.vb
index 7d8ea2f108aefba2f90e621c71c030badc34e2eb..2f0cf6a6963f12253b080cba836473992faa9c8a 100644 (file)
--- a/mcs/class/Microsoft.VisualBasic/Test/standalone/5023.vb
+++ b/mcs/class/Microsoft.VisualBasic/Test/standalone/5023.vb
@@ -2,7 +2,6 @@
 '
 ' Author:
 '   Roopa Wilson (rowilson@novell.com)
-
 ' Copyright (C) 2004 Novell, Inc (http://www.novell.com)
 '
 ' Permission is hereby granted, free of charge, to any person obtaining
@@ -24,19 +23,18 @@
 ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 '
-
-Imports Microsoft.VisualBasic \r
-Imports System\r
-Public Class TestClass\r
-       Private Declare Function SQLCancel Lib "ODBC32.dll" _\r
-       (ByVal hstmt As Integer) As Long\r
-       Public Function Test() As String\r
-               'Begin Code\r
-                       On Error Resume Next\r
-                       Dim myhandle As Integer\r
-                       ' Call with invalid argument.\r
-                       Dim d as Integer = SQLCancel(myhandle)\r
-                       Return Err.LastDllError\r
-               'End Code\r
-       End Function\r
-End Class\r
+Imports Microsoft.VisualBasic 
+Imports System
+Public Class TestClass
+       Private Declare Function SQLCancel Lib "ODBC32.dll" _
+       (ByVal hstmt As Integer) As Long
+       Public Function Test() As String
+               'Begin Code
+                       On Error Resume Next
+                       Dim myhandle As Integer
+                       ' Call with invalid argument.
+                       Dim d as Integer = SQLCancel(myhandle)
+                       Return Err.LastDllError
+               'End Code
+       End Function
+End Class