Added some examples to VB demo project.

Author: Rpinski

Demonstration.VB/Demonstration.VB.vbproj

@@ -85,6 +85,7 @@
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
+    <Compile Include="SomeClass.vb" />
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="My Project\Resources.resx">

Demonstration.VB/MainModule.vb

@@ -2,6 +2,12 @@
 
     Sub Main()
 
+        Dim x As Integer = 0
+        ' Refactoring to convert "Do ... Loop until" to "Do Until ... Loop" and vice versa
+        Do
+            x += 1
+        Loop Until x = 5
+
     End Sub
 
 End Module

Demonstration.VB/SomeClass.vb

@@ -0,0 +1,29 @@
+Public Class SomeClass
+
+    Public Sub New(Name As String)
+        If Name Is Nothing Then
+            ' Analyzer + CodeFix to replace "Name" by NameOf(Name)
+            Throw New ArgumentNullException("Name")
+        End If
+    End Sub
+
+    Dim _count As Integer
+    ' "Add another accessor" refactoring
+    Public ReadOnly Property Count As Integer
+        Get
+            Return _count
+        End Get
+    End Property
+
+    Dim _name As String
+    ' "Create changed event" refactoring
+    Public Property Name As String
+        Get
+            Return _name
+        End Get
+        Set(value As String)
+            _name = value
+        End Set
+    End Property
+
+End Class