VB conversion error

Readme.md

@@ -1,5 +1,4 @@
 <!-- default badges list -->
-![](https://img.shields.io/endpoint?url=https://codecentral.devexpress.com/api/v1/VersionRange/128629596/12.2.10%2B)
 [![](https://img.shields.io/badge/Open_in_DevExpress_Support_Center-FF7200?style=flat-square&logo=DevExpress&logoColor=white)](https://supportcenter.devexpress.com/ticket/details/E4498)
 [![](https://img.shields.io/badge/📖_How_to_use_DevExpress_Examples-e9f6fc?style=flat-square)](https://docs.devexpress.com/GeneralInformation/403183)
 <!-- default badges end -->

VB/LinqServerModeSource/EditForm.vb

@@ -1,4 +1,4 @@
-' Developer Express Code Central Example:
+' Developer Express Code Central Example:
 ' How to implement CRUD operations using XtraGrid and LinqServeModeSource
 ' 
 ' This example demonstrates how to implement create, update and delete operations
@@ -8,35 +8,30 @@
 ' 
 ' You can find sample updates and versions for different programming languages here:
 ' http://www.devexpress.com/example=E4498
-
-Imports Microsoft.VisualBasic
 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
 
 Namespace LinqServerModeSource
-	Partial Public Class EditForm
-		Inherits Form
-		Public Sub New(ByVal customer As Customer)
-			InitializeComponent()
-			textEdit1.DataBindings.Add("EditValue", customer, "CompanyName")
-			textEdit2.DataBindings.Add("EditValue", customer, "ContactName")
-			textEdit3.DataBindings.Add("EditValue", customer, "Address")
-			textEdit4.DataBindings.Add("EditValue", customer, "Country")
-		End Sub
 
-		Private Sub simpleButton1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles simpleButton1.Click
-			DialogResult = System.Windows.Forms.DialogResult.OK
-		End Sub
+    Public Partial Class EditForm
+        Inherits Form
+
+        Public Sub New(ByVal customer As Customer)
+            InitializeComponent()
+            textEdit1.DataBindings.Add("EditValue", customer, "CompanyName")
+            textEdit2.DataBindings.Add("EditValue", customer, "ContactName")
+            textEdit3.DataBindings.Add("EditValue", customer, "Address")
+            textEdit4.DataBindings.Add("EditValue", customer, "Country")
+        End Sub
 
-		Private Sub simpleButton2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles simpleButton2.Click
-			DialogResult = System.Windows.Forms.DialogResult.Cancel
-		End Sub
+        Private Sub simpleButton1_Click(ByVal sender As Object, ByVal e As EventArgs)
+            DialogResult = DialogResult.OK
+        End Sub
 
-	End Class
+        Private Sub simpleButton2_Click(ByVal sender As Object, ByVal e As EventArgs)
+            DialogResult = DialogResult.Cancel
+        End Sub
+    End Class
 End Namespace