Somebody to convert code from C# to VB

Question

Hello, someboy who helpe to convert this code. Really i don´t know about VB. Thanks a lot in advanced. Fausto Imports System Imports System.Net Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Documents Imports System.Windows.Ink Imports System.Windows.Input Imports System.Windows.Media Imports System.Windows.Media.Animation Imports System.Windows.Shapes Imports System.Collections.Generic Public Class ValidationScope '' Using a DependencyProperty as the backing store for Errors. This enables animation, styling, binding, etc... Public Shared ReadOnly ErrorsProperty As DependencyProperty = DependencyProperty.RegisterAttached("Errors", GetType(IList(Of ValidationError)), GetType(ValidationScope), New PropertyMetadata(Nothing, ErrorsChanged)) Public Shared Function GetErrors(ByVal obj As DependencyObject) As IList(Of ValidationError) Return CType(obj.GetValue(ErrorsProperty), IList(Of ValidationError)) End Function Public Shared Sub SetErrors(ByVal obj As DependencyObject, ByVal value As IList(Of ValidationError)) obj.SetValue(ErrorsProperty, value) End Sub Public Shared Sub ErrorsChanged(ByVal obj As DependencyObject, ByVal args As DependencyPropertyChangedEventArgs) Dim element As FrameworkElement = DirectCast(obj, FrameworkElement) element.BindingValidationError += Function(sender As Object, e As ValidationErrorEventArgs) Do If e.Action = ValidationErrorEventAction.Added Then GetErrors(obj).Add(e.[Error]) Else GetErrors(obj).Remove(e.[Error]) End If End Sub End Class