VB conversion error

CODEOWNERS

@@ -0,0 +1 @@
+*       @DevExpressExampleBot

Readme.md

@@ -1,5 +1,4 @@
 <!-- default badges list -->
-![](https://img.shields.io/endpoint?url=https://codecentral.devexpress.com/api/v1/VersionRange/128611498/23.1.5%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/E3280)
 [![](https://img.shields.io/badge/📖_How_to_use_DevExpress_Examples-e9f6fc?style=flat-square)](https://docs.devexpress.com/GeneralInformation/403183)
 [![](https://img.shields.io/badge/💬_Leave_Feedback-feecdd?style=flat-square)](#does-this-example-address-your-development-requirementsobjectives)

VB/Form1.vb

@@ -1,5 +1,3 @@
-Imports System
-Imports System.Collections.Generic
 Imports DevExpress.XtraRichEdit.API.Native
 Imports DevExpress.XtraRichEdit
 
@@ -12,7 +10,7 @@ Namespace RichEditDOCVARIABLEBasics
             InitializeComponent()
             Dim details As List(Of DetailInfo) = New List(Of DetailInfo) From {New DetailInfo(1, "Documents//Detail1"), New DetailInfo(2, "Documents//Detail2")}
             richEditControl1.Options.MailMerge.DataSource = details
-            AddHandler richEditControl1.Document.CalculateDocumentVariable, New CalculateDocumentVariableEventHandler(AddressOf Document_CalculateDocumentVariable)
+            richEditControl1.Document.CalculateDocumentVariable += New CalculateDocumentVariableEventHandler(AddressOf Document_CalculateDocumentVariable)
             richEditControl1.LoadDocument("Documents//Template.rtf")
             ShowFieldCodes()
         End Sub
@@ -26,17 +24,17 @@ Namespace RichEditDOCVARIABLEBasics
             Dim myMergeOptions As MailMergeOptions = richEditControl1.Document.CreateMailMergeOptions()
             myMergeOptions.MergeMode = MergeMode.NewParagraph
             Dim server As RichEditDocumentServer = New RichEditDocumentServer()
-            AddHandler server.CalculateDocumentVariable, New CalculateDocumentVariableEventHandler(AddressOf Document_CalculateDocumentVariable)
+            server.CalculateDocumentVariable += New CalculateDocumentVariableEventHandler(AddressOf Document_CalculateDocumentVariable)
             richEditControl1.Document.MailMerge(myMergeOptions, server.Document)
             richEditControl1.CreateNewDocument()
             richEditControl1.Document.AppendDocumentContent(server.Document.Range)
         End Sub
 
         Private Sub Document_CalculateDocumentVariable(ByVal sender As Object, ByVal e As CalculateDocumentVariableEventArgs)
             Dim detailId As Integer = -1
-            If Integer.TryParse(e.Arguments(0).Value, detailId) Then
+            If Int32.TryParse(e.Arguments(0).Value, detailId) Then
                 Dim server As RichEditDocumentServer = New RichEditDocumentServer()
-                Dim path As String = String.Format("{0}\Documents\Detail{1}.rtf", IO.Directory.GetCurrentDirectory(), detailId.ToString())
+                Dim path As String = String.Format("{0}\Documents\Detail{1}.rtf", System.IO.Directory.GetCurrentDirectory(), detailId.ToString())
                 server.LoadDocument(path)
                 e.Value = server
                 e.Handled = True

VB/Program.vb

@@ -1,6 +1,3 @@
-Imports System
-Imports System.Windows.Forms
-
 Namespace RichEditDOCVARIABLEBasics
 
     Friend Module Program
@@ -10,9 +7,9 @@ Namespace RichEditDOCVARIABLEBasics
         ''' </summary>
         <STAThread>
         Sub Main()
-            Call Application.EnableVisualStyles()
+            Application.EnableVisualStyles()
             Application.SetCompatibleTextRenderingDefault(False)
-            Call Application.Run(New Form1())
+            Application.Run(New Form1())
         End Sub
     End Module
 End Namespace

VB/RichEditDOCVARIABLEBasics.vbproj

@@ -1,38 +1,27 @@
-<Project Sdk="Microsoft.NET.Sdk">
-    <PropertyGroup>
-        <TargetFramework>net8.0-windows</TargetFramework>
-        <OutputType>WinExe</OutputType>
-        <AppDesignerFolder>Properties</AppDesignerFolder>
-        <RootNamespace></RootNamespace>
-        <GenerateAssemblyInfo>false</GenerateAssemblyInfo>
-        <UseWindowsForms>true</UseWindowsForms>
-        <ImportWindowsDesktopTargets>true</ImportWindowsDesktopTargets>
-    </PropertyGroup>
-    <ItemGroup>
-        <Compile Update="Form1.Designer.vb">
-            <DependentUpon>Form1.vb</DependentUpon>
-        </Compile>
-        <Compile Update="Properties\Resources.Designer.vb">
-            <AutoGen>True</AutoGen>
-            <DependentUpon>Resources.resx</DependentUpon>
-            <DesignTime>True</DesignTime>
-        </Compile>
-        <None Update="Documents\Detail1.rtf">
-            <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-        </None>
-        <None Update="Documents\Detail2.rtf">
-            <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-        </None>
-        <None Update="Documents\Template.rtf">
-            <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-        </None>
-        <Compile Update="Properties\Settings.Designer.vb">
-            <AutoGen>True</AutoGen>
-            <DependentUpon>Settings.settings</DependentUpon>
-            <DesignTimeSharedInput>True</DesignTimeSharedInput>
-        </Compile>
-    </ItemGroup>
-    <ItemGroup>
-        <PackageReference Include="DevExpress.Win.RichEdit" Version="23.1.*" />
-    </ItemGroup>
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+    <TargetFramework>net8.0-windows</TargetFramework>
+    <OutputType>WinExe</OutputType>
+    <GenerateAssemblyConfigurationAttribute>false</GenerateAssemblyConfigurationAttribute>
+    <GenerateAssemblyDescriptionAttribute>false</GenerateAssemblyDescriptionAttribute>
+    <GenerateAssemblyProductAttribute>false</GenerateAssemblyProductAttribute>
+    <GenerateAssemblyTitleAttribute>false</GenerateAssemblyTitleAttribute>
+    <UseWindowsForms>true</UseWindowsForms>
+    <ImportWindowsDesktopTargets>true</ImportWindowsDesktopTargets>
+  </PropertyGroup>
+  <ItemGroup>
+    <None Include="Documents\Template.rtf">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
+    <None Update="Documents\Detail1.rtf">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
+    <None Update="Documents\Detail2.rtf">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
+  </ItemGroup>
+  <ItemGroup>
+    <PackageReference Include="DevExpress.Win.RichEdit" Version="23.1.*" />
+  </ItemGroup>
 </Project>

VB/app.config

@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <configSections>
+    <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System">
+      <section name="DevExpress.LookAndFeel.Design.AppSettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
+    </sectionGroup>
+  </configSections>
+  <applicationSettings>
+    <DevExpress.LookAndFeel.Design.AppSettings>
+      <setting name="DefaultAppSkin" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="DefaultPalette" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="TouchUI" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="CompactUI" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="TouchScaleFactor" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="DirectX" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="RegisterUserSkins" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="RegisterBonusSkins" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="FontBehavior" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="DefaultAppFont" serializeAs="String">
+        <value></value>
+      </setting>
+      <setting name="DPIAwarenessMode" serializeAs="String">
+        <value>PerMonitorV2</value>
+      </setting>
+      <setting name="CustomPaletteCollection" serializeAs="Xml">
+        <value />
+      </setting>
+    </DevExpress.LookAndFeel.Design.AppSettings>
+  </applicationSettings>
+  <startup>
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
+  </startup>
+</configuration>