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

VB/App.xaml

@@ -0,0 +1,20 @@
+<Application x:Class="WpfApplication.App"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:View="clr-namespace:WpfApplication.View"
+             xmlns:local="clr-namespace:WpfApplication"
+             xmlns:dxdo="http://schemas.devexpress.com/winfx/2008/xaml/docking"
+             StartupUri="MainWindow.xaml">
+    <Application.Resources>
+        <Style TargetType="{x:Type dxdo:DocumentPanel}">
+            <Setter Property="Caption" Value="{Binding Caption}" />
+            <Setter Property="CaptionImage" Value="{Binding Glyph}" />
+        </Style>
+        <DataTemplate DataType="{x:Type local:DocumentViewModel}">
+            <View:DocumentView/>
+        </DataTemplate>
+        <DataTemplate DataType="{x:Type local:PanelViewModel}">
+            <View:PanelView/>
+        </DataTemplate>
+    </Application.Resources>
+</Application>

VB/App.xaml.vb

@@ -0,0 +1,12 @@
+Imports System.Windows
+
+Namespace WpfApplication
+
+    ''' <summary>
+    ''' Interaction logic for App.xaml
+    ''' </summary>
+    Public Partial Class App
+        Inherits Application
+
+    End Class
+End Namespace

VB/Application.xaml

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

VB/Application.xaml.vb

@@ -1,5 +1,4 @@
-Imports Microsoft.VisualBasic
-Imports System
+Imports System
 Imports System.Collections.Generic
 Imports System.Configuration
 Imports System.Data
@@ -12,5 +11,6 @@ Namespace WpfApplication
 	''' </summary>
 	Partial Public Class App
 		Inherits Application
+
 	End Class
 End Namespace

VB/Helpers/GlyphHelper.vb

@@ -1,15 +1,11 @@
-Imports Microsoft.VisualBasic
-Imports System
-Imports System.Collections.Generic
-Imports System.Linq
 Imports System.Windows.Media.Imaging
 
 Namespace WpfApplication
-	Friend NotInheritable Class GlyphHelper
-		Private Sub New()
-		End Sub
-		Public Shared Function GetGlyph(ByVal path As String) As BitmapImage
-			Return New BitmapImage(DevExpress.Utils.AssemblyHelper.GetResourceUri(GetType(GlyphHelper).Assembly, path))
-		End Function
-	End Class
+
+    Friend Module GlyphHelper
+
+        Public Function GetGlyph(ByVal path As String) As BitmapImage
+            Return New BitmapImage(DevExpress.Utils.AssemblyHelper.GetResourceUri(GetType(GlyphHelper).Assembly, path))
+        End Function
+    End Module
 End Namespace

VB/MainWindow.xaml.vb

@@ -1,28 +1,17 @@
-Imports Microsoft.VisualBasic
-Imports System
-Imports System.Collections.Generic
-Imports System.Linq
-Imports System.Text
 Imports System.Windows
 Imports System.Windows.Controls
-Imports System.Windows.Data
-Imports System.Windows.Documents
-Imports System.Windows.Input
-Imports System.Windows.Media
-Imports System.Windows.Media.Imaging
-Imports System.Windows.Navigation
-Imports System.Windows.Shapes
 Imports DevExpress.Xpf.Docking
-Imports System.Collections.ObjectModel
 
 Namespace WpfApplication
-	''' <summary>
-	''' Interaction logic for MainWindow.xaml
-	''' </summary>
-	Partial Public Class MainWindow
-		Inherits Window
-		Public Sub New()
-			InitializeComponent()
-		End Sub
-	End Class
-End Namespace
+
+    ''' <summary>
+    ''' Interaction logic for MainWindow.xaml
+    ''' </summary>
+    Public Partial Class MainWindow
+        Inherits Window
+
+        Public Sub New()
+            InitializeComponent()
+        End Sub
+    End Class
+End Namespace

VB/My Project/AssemblyInfo.vb

@@ -1,5 +1,4 @@
-Imports Microsoft.VisualBasic
-Imports System.Reflection
+Imports System.Reflection
 Imports System.Resources
 Imports System.Runtime.CompilerServices
 Imports System.Runtime.InteropServices
@@ -32,10 +31,6 @@ Imports System.Windows
 '[assembly: NeutralResourcesLanguage("en-US", UltimateResourceFallbackLocation.Satellite)]
 
 
-	'(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)>
 
 

VB/Properties/AssemblyInfo.vb

@@ -0,0 +1,44 @@
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+Imports System.Windows
+
+' General Information about an assembly is controlled through the following 
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+<Assembly:AssemblyTitle("WpfApplication")>
+<Assembly:AssemblyDescription("")>
+<Assembly:AssemblyConfiguration("")>
+<Assembly:AssemblyCompany("Microsoft")>
+<Assembly:AssemblyProduct("WpfApplication")>
+<Assembly:AssemblyCopyright("Copyright © Microsoft 2011")>
+<Assembly:AssemblyTrademark("")>
+<Assembly:AssemblyCulture("")>
+' Setting ComVisible to false makes the types in this assembly not visible 
+' to COM components.  If you need to access a type in this assembly from 
+' COM, set the ComVisible attribute to true on that type.
+<Assembly:ComVisible(False)>
+'In order to begin building localizable applications, set 
+'<UICulture>CultureYouAreCodingWith</UICulture> in your .csproj file
+'inside a <PropertyGroup>.  For example, if you are using US english
+'in your source files, set the <UICulture> to en-US.  Then uncomment
+'the NeutralResourceLanguage attribute below.  Update the "en-US" in
+'the line below to match the UICulture setting in the project file.
+'[assembly: NeutralResourcesLanguage("en-US", UltimateResourceFallbackLocation.Satellite)]
+'(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)> 'where theme specific resource dictionaries are located
+'where the generic resource dictionary is located
+' Version information for an assembly consists of the following four values:
+'
+'      Major Version
+'      Minor Version 
+'      Build Number
+'      Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers 
+' by using the '*' as shown below:
+' [assembly: AssemblyVersion("1.0.*")]
+<Assembly:AssemblyVersion("1.0.0.0")>
+<Assembly:AssemblyFileVersion("1.0.0.0")>