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/128655841/17.2.3%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/T555815)
 [![](https://img.shields.io/badge/📖_How_to_use_DevExpress_Examples-e9f6fc?style=flat-square)](https://docs.devexpress.com/GeneralInformation/403183)
 <!-- default badges end -->

VB/CustomReminderExample.Net5.sln

@@ -1,4 +1,4 @@
-Microsoft Visual Studio Solution File, Format Version 12.00
+Microsoft Visual Studio Solution File, Format Version 12.00
 # Visual Studio 16
 VisualStudioVersion = 14.0.25420.1
 MinimumVisualStudioVersion = 10.0.40219.1

VB/CustomReminderExample.sln

@@ -1,4 +1,4 @@
-Microsoft Visual Studio Solution File, Format Version 12.00
+Microsoft Visual Studio Solution File, Format Version 12.00
 # Visual Studio 2012
 VisualStudioVersion = 14.0.25420.1
 MinimumVisualStudioVersion = 10.0.40219.1

VB/CustomReminderExample/Application.xaml

@@ -1,4 +1,4 @@
-<Application x:Class="CustomReminderExample.App"
+<Application x:Class="CustomReminderExample.App"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
              xmlns:local="clr-namespace:CustomReminderExample"

VB/CustomReminderExample/Application.xaml.vb

@@ -7,11 +7,11 @@ Imports System.Threading.Tasks
 Imports System.Windows
 
 Namespace CustomReminderExample
-    ''' <summary>
-    ''' Interaction logic for App.xaml
-    ''' </summary>
-    Partial Public Class App
-        Inherits Application
+	''' <summary>
+	''' Interaction logic for App.xaml
+	''' </summary>
+	Partial Public Class App
+		Inherits Application
 
-    End Class
+	End Class
 End Namespace

VB/CustomReminderExample/CustomReminderExample.Net5.vbproj

@@ -1,3 +1,4 @@
+<?xml version="1.0" encoding="utf-8"?>
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
     <TargetFramework>net5.0-windows</TargetFramework>
@@ -11,31 +12,15 @@
     <Platforms>x86;AnyCPU</Platforms>
     <CopyLocalLockFileAssemblies>false</CopyLocalLockFileAssemblies>
     <DefaultItemExcludes>obj*/**</DefaultItemExcludes>
+    <OptionExplicit>On</OptionExplicit>
+    <OptionCompare>Binary</OptionCompare>
+    <OptionStrict>Off</OptionStrict>
+    <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <TreatWarningsAsErrors>true</TreatWarningsAsErrors>
+    <RemoveIntegerChecks>true</RemoveIntegerChecks>
   </PropertyGroup>
-  <ItemGroup>
-    <Import Include="Microsoft.VisualBasic" />
-    <Import Include="System.Collections.Generic" />
-    <Import Include="System.Collections" />
-    <Import Include="System.Diagnostics" />
-    <Import Include="System.Linq" />
-    <Import Include="System.Xml.Linq" />
-    <Import Include="System.Data" />
-    <Import Include="System.Drawing" />
-    <Import Include="System.Windows.Forms" />
-    <Import Include="System.Windows.Controls" />
-    <Import Include="System.Windows.Data" />
-    <Import Include="System.Windows.Shapes" />
-    <Import Include="System.Windows.Documents" />
-    <Import Include="System.Windows.Input" />
-    <Import Include="System.Windows.Media.Imaging" />
-    <Import Include="System.Windows.Media" />
-    <Import Include="System.Windows.Navigation" />
-    <Import Include="System.Windows" />
-    <Import Include="System" />
-  </ItemGroup>
   <ItemGroup>
     <Reference Include="System.ServiceModel" />
   </ItemGroup>

VB/CustomReminderExample/CustomReminderExample.vbproj

@@ -12,11 +12,11 @@
     <FileAlignment>512</FileAlignment>
     <ProjectTypeGuids>{60dc8134-eba5-43b8-bcc9-bb4bc16c2548};{F184B08F-C81C-45F6-A57F-5ABD9991F28F}</ProjectTypeGuids>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <BaseIntermediateOutputPath>obj.NetFX</BaseIntermediateOutputPath>
     <OptionExplicit>On</OptionExplicit>
     <OptionCompare>Binary</OptionCompare>
     <OptionStrict>Off</OptionStrict>
     <OptionInfer>On</OptionInfer>
-    <BaseIntermediateOutputPath>obj.NetFX</BaseIntermediateOutputPath>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -28,6 +28,7 @@
     <DefineTrace>true</DefineTrace>
     <ErrorReport>prompt</ErrorReport>
     <TreatWarningsAsErrors>true</TreatWarningsAsErrors>
+    <RemoveIntegerChecks>true</RemoveIntegerChecks>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -37,56 +38,79 @@
     <DefineDebug>false</DefineDebug>
     <DefineTrace>true</DefineTrace>
     <ErrorReport>prompt</ErrorReport>
+    <RemoveIntegerChecks>true</RemoveIntegerChecks>
   </PropertyGroup>
   <ItemGroup>
     <Import Include="Microsoft.VisualBasic" />
-    <Import Include="System.Collections.Generic" />
+    <Import Include="System" />
     <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
     <Import Include="System.Diagnostics" />
     <Import Include="System.Linq" />
     <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
     <Import Include="System.Data" />
     <Import Include="System.Drawing" />
     <Import Include="System.Windows.Forms" />
+    <Import Include="System.Windows" />
     <Import Include="System.Windows.Controls" />
     <Import Include="System.Windows.Data" />
-    <Import Include="System.Windows.Shapes" />
     <Import Include="System.Windows.Documents" />
     <Import Include="System.Windows.Input" />
-    <Import Include="System.Windows.Media.Imaging" />
     <Import Include="System.Windows.Media" />
+    <Import Include="System.Windows.Media.Imaging" />
     <Import Include="System.Windows.Navigation" />
-    <Import Include="System.Windows" />
-    <Import Include="System" />
+    <Import Include="System.Windows.Shapes" />
   </ItemGroup>
   <ItemGroup>
     <Reference Include="DevExpress.Data.v21.1, Version=21.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
+      <Private>True</Private>
+      <HintPath>C:\DXDlls\21.1.5\DevExpress.Data.v21.1.dll</HintPath>
     </Reference>
     <Reference Include="DevExpress.Mvvm.v21.1, Version=21.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
+      <Private>True</Private>
+      <HintPath>C:\DXDlls\21.1.5\DevExpress.Mvvm.v21.1.dll</HintPath>
+    </Reference>
+    <Reference Include="DevExpress.Printing.v21.1.Core, Version=21.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
+      <Private>True</Private>
+      <HintPath>C:\DXDlls\21.1.5\DevExpress.Printing.v21.1.Core.dll</HintPath>
     </Reference>
-    <Reference Include="DevExpress.Printing.v21.1.Core, Version=21.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
     <Reference Include="DevExpress.Data.Desktop.v21.1, Version=21.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
+      <Private>True</Private>
+      <HintPath>C:\DXDlls\21.1.5\DevExpress.Data.Desktop.v21.1.dll</HintPath>
     </Reference>
     <Reference Include="DevExpress.Xpf.Core.v21.1, Version=21.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
+      <Private>True</Private>
+      <HintPath>C:\DXDlls\21.1.5\DevExpress.Xpf.Core.v21.1.dll</HintPath>
     </Reference>
     <Reference Include="DevExpress.Xpf.LayoutControl.v21.1, Version=21.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
+      <Private>True</Private>
+      <HintPath>C:\DXDlls\21.1.5\DevExpress.Xpf.LayoutControl.v21.1.dll</HintPath>
     </Reference>
     <Reference Include="DevExpress.Xpf.Ribbon.v21.1, Version=21.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
+      <Private>True</Private>
+      <HintPath>C:\DXDlls\21.1.5\DevExpress.Xpf.Ribbon.v21.1.dll</HintPath>
     </Reference>
     <Reference Include="DevExpress.Xpf.Scheduling.v21.1, Version=21.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
+      <Private>True</Private>
+      <HintPath>C:\DXDlls\21.1.5\DevExpress.Xpf.Scheduling.v21.1.dll</HintPath>
     </Reference>
     <Reference Include="DevExpress.XtraScheduler.v21.1.Core.Desktop, Version=21.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
+      <Private>True</Private>
+      <HintPath>C:\DXDlls\21.1.5\DevExpress.XtraScheduler.v21.1.Core.Desktop.dll</HintPath>
     </Reference>
     <Reference Include="DevExpress.XtraScheduler.v21.1.Core, Version=21.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
+      <Private>True</Private>
+      <HintPath>C:\DXDlls\21.1.5\DevExpress.XtraScheduler.v21.1.Core.dll</HintPath>
     </Reference>
     <Reference Include="System" />
     <Reference Include="System.ComponentModel.DataAnnotations" />
@@ -157,18 +181,19 @@
     <None Include="My Project\Settings.settings">
       <Generator>SettingsSingleFileGenerator</Generator>
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My</CustomToolNamespace>
     </None>
     <AppDesigner Include="My Project\" />
   </ItemGroup>
   <ItemGroup>
     <None Include="App.config" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
-  <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
-       Other similar extension points exist, see Microsoft.Common.targets.
-  <Target Name="BeforeBuild">
-  </Target>
-  <Target Name="AfterBuild">
-  </Target>
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
   -->
 </Project>

VB/CustomReminderExample/CustomReminderWindow.xaml

@@ -1,4 +1,4 @@
-<dx:DXWindow
+<dx:DXWindow
     x:Class="CustomReminderExample.CustomReminderWindow"
     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

VB/CustomReminderExample/CustomReminderWindow.xaml.vb

@@ -14,14 +14,14 @@ Imports DevExpress.Xpf.Core
 
 
 Namespace CustomReminderExample
-    ''' <summary>
-    ''' Interaction logic for CustomReminderWindow.xaml
-    ''' </summary>
-    Partial Public Class CustomReminderWindow
-        Inherits DXWindow
+	''' <summary>
+	''' Interaction logic for CustomReminderWindow.xaml
+	''' </summary>
+	Partial Public Class CustomReminderWindow
+		Inherits DXWindow
 
-        Public Sub New()
-            InitializeComponent()
-        End Sub
-    End Class
+		Public Sub New()
+			InitializeComponent()
+		End Sub
+	End Class
 End Namespace

VB/CustomReminderExample/MainWindow.xaml

@@ -1,4 +1,4 @@
-<Window
+<Window
     x:Class="CustomReminderExample.MainWindow"
     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

VB/CustomReminderExample/MainWindow.xaml.vb

@@ -16,52 +16,52 @@ Imports System.Windows.Navigation
 Imports System.Windows.Shapes
 
 Namespace CustomReminderExample
-    ''' <summary>
-    ''' Interaction logic for MainWindow.xaml
-    ''' </summary>
-    Partial Public Class MainWindow
-        Inherits Window
+	''' <summary>
+	''' Interaction logic for MainWindow.xaml
+	''' </summary>
+	Partial Public Class MainWindow
+		Inherits Window
 
-        Public Sub New()
-            InitializeComponent()
-        End Sub
-        #Region "#RemindersWindowShowing"
-        Private Sub Scheduler_RemindersWindowShowing(ByVal sender As Object, ByVal e As DevExpress.Xpf.Scheduling.RemindersWindowShowingEventArgs)
-            If e.TriggeredReminders.Any(Function(r) r.Appointment.Subject.Contains("test")) Then
-                Dim reminderWindow As New DevExpress.Xpf.Scheduling.Visual.RemindersWindow()
-                reminderWindow.DataContext = New DevExpress.Xpf.Scheduling.VisualData.RemindersWindowViewModel(scheduler)
-                e.Window = reminderWindow
-            End If
-        End Sub
-        #End Region ' #RemindersWindowShowing
+		Public Sub New()
+			InitializeComponent()
+		End Sub
+		#Region "#RemindersWindowShowing"
+		Private Sub Scheduler_RemindersWindowShowing(ByVal sender As Object, ByVal e As DevExpress.Xpf.Scheduling.RemindersWindowShowingEventArgs)
+			If e.TriggeredReminders.Any(Function(r) r.Appointment.Subject.Contains("test")) Then
+				Dim reminderWindow As New DevExpress.Xpf.Scheduling.Visual.RemindersWindow()
+				reminderWindow.DataContext = New DevExpress.Xpf.Scheduling.VisualData.RemindersWindowViewModel(scheduler)
+				e.Window = reminderWindow
+			End If
+		End Sub
+		#End Region ' #RemindersWindowShowing
 
-        Private Sub Scheduler_InitNewAppointment(ByVal sender As Object, ByVal e As DevExpress.Xpf.Scheduling.AppointmentItemEventArgs)
-            AddAppointmentReminders(e.Appointment)
-        End Sub
+		Private Sub Scheduler_InitNewAppointment(ByVal sender As Object, ByVal e As DevExpress.Xpf.Scheduling.AppointmentItemEventArgs)
+			AddAppointmentReminders(e.Appointment)
+		End Sub
 
-        Private Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
-            Dim apt As New AppointmentItem(AppointmentType.Normal) With { _
-                .Start = Date.Today.AddHours(Date.Now.Hour), _
-                .End = Date.Today.AddHours(Date.Now.Hour + 1), _
-                .Subject = "Reminder Test" _
-            }
-            AddAppointmentReminders(apt)
-            scheduler.AppointmentItems.Add(apt)
-        End Sub
+		Private Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
+			Dim apt As New AppointmentItem(AppointmentType.Normal) With {
+				.Start = DateTime.Today.AddHours(DateTime.Now.Hour),
+				.End = DateTime.Today.AddHours(DateTime.Now.Hour + 1),
+				.Subject = "Reminder Test"
+			}
+			AddAppointmentReminders(apt)
+			scheduler.AppointmentItems.Add(apt)
+		End Sub
 
-        Private Shared Sub AddAppointmentReminders(ByVal appointment As AppointmentItem)
-'            #Region "#AddAppointmentReminders"
-            ' Remove previous reminders
-            appointment.Reminders.Clear()
-            ' Set multiple reminders for an appointment
-            Dim reminder1 As ReminderItem = appointment.CreateNewReminder()
-            Dim reminder2 As ReminderItem = appointment.CreateNewReminder()
-            reminder1.AlertTime = Date.Now.AddMinutes(15)
-            reminder2.TimeBeforeStart = New TimeSpan(0, 30, 0)
+		Private Shared Sub AddAppointmentReminders(ByVal appointment As AppointmentItem)
+'			#Region "#AddAppointmentReminders"
+			' Remove previous reminders
+			appointment.Reminders.Clear()
+			' Set multiple reminders for an appointment
+			Dim reminder1 As ReminderItem = appointment.CreateNewReminder()
+			Dim reminder2 As ReminderItem = appointment.CreateNewReminder()
+			reminder1.AlertTime = DateTime.Now.AddMinutes(15)
+			reminder2.TimeBeforeStart = New TimeSpan(0, 30, 0)
 
-            appointment.Reminders.Add(reminder1)
-            appointment.Reminders.Add(reminder2)
-'            #End Region ' #AddAppointmentReminders
-        End Sub
-    End Class
+			appointment.Reminders.Add(reminder1)
+			appointment.Reminders.Add(reminder2)
+'			#End Region ' #AddAppointmentReminders
+		End Sub
+	End Class
 End Namespace

VB/CustomReminderExample/My Project/AssemblyInfo.vb

@@ -31,11 +31,7 @@ Imports System.Windows
 '[assembly: NeutralResourcesLanguage("en-US", UltimateResourceFallbackLocation.Satellite)]
 
 
-<Assembly: ThemeInfo(ResourceDictionaryLocation.None, ResourceDictionaryLocation.SourceAssembly)> 'where the generic resource dictionary is located - where theme specific resource dictionaries are located
-                                     '(used if a resource is not found in the page, 
-                                     ' or application resource dictionaries)
-                                              '(used if a resource is not found in the page, 
-                                              ' app, or any theme specific resource dictionaries)
+<Assembly: ThemeInfo(ResourceDictionaryLocation.None, ResourceDictionaryLocation.SourceAssembly)>
 
 
 ' Version information for an assembly consists of the following four values: