Reorganize VB snippets in CLR directory (#11544)

Author: gewarren

snippets/visualbasic/VS_Snippets_CLR/CodeDom_GenerateCodeFromMember/vb/module1.vb renamed to snippets/visualbasic/Microsoft.CSharp/CSharpCodeProvider/GenerateCodeFromMember/module1.vb

@@ -2,40 +2,40 @@
 Imports Microsoft.Win32
 
 Class Reg
-    
+
     Public Shared Sub Main()
-        
+
         ' Create a RegistryKey, which will access the HKEY_USERS
         ' key in the registry of this machine.
         Dim rk As RegistryKey = Registry.Users
-        
+
         ' Print out the keys.
         PrintKeys(rk)
-    End Sub    
-    
+    End Sub
+
     Shared Sub PrintKeys(rkey As RegistryKey)
-        
+
         ' Retrieve all the subkeys for the specified key.
         Dim names As String() = rkey.GetSubKeyNames()
-        
+
         Dim icount As Integer = 0
-        
+
         Console.WriteLine("Subkeys of " & rkey.Name)
         Console.WriteLine("-----------------------------------------------")
-        
+
         ' Print the contents of the array to the console.
         Dim s As String
         For Each s In  names
             Console.WriteLine(s)
-            
+
             ' The following code puts a limit on the number
             ' of keys displayed.  Comment it out to print the
             ' complete list.
-            icount += 1            
+            icount += 1
             If icount >= 10 Then
                 Exit For
             End If
         Next s
     End Sub
 End Class
-' </Snippet1>
+' </Snippet1>

snippets/visualbasic/VS_Snippets_CLR/CodeDom_CodeProviders/VB/source.vb renamed to snippets/visualbasic/Microsoft.CSharp/CSharpCodeProvider/Overview/source.vb

@@ -24,7 +24,7 @@ Public Class Example
         Registry.SetValue(keyName, "TestExpand2", "My path: %path%", _
             RegistryValueKind.ExpandString)
 
-        ' Arrays of strings are stored automatically as 
+        ' Arrays of strings are stored automatically as
         ' MultiString. Similarly, arrays of Byte are stored
         ' automatically as Binary.
         Dim strings() As String = {"One", "Two", "Three"}
@@ -37,7 +37,7 @@ Public Class Example
             "Return this default if NoSuchName does not exist.")
         Console.WriteLine(vbCrLf & "NoSuchName: {0}", noSuch)
 
-        ' Retrieve the Integer and Long values, specifying 
+        ' Retrieve the Integer and Long values, specifying
         ' numeric default values in case the name/value pairs
         ' do not exist. The Integer value is retrieved from the
         ' default (nameless) name/value pair for the key.
@@ -93,4 +93,4 @@ End Class
 '
 'Use the registry editor to examine the key.
 'Press the Enter key to delete the key.
-'</Snippet1>
+'</Snippet1>