Use PascalCase for method name, remove ByVal (#1564)

* Use PascalCase for method name, remove ByVal

* fix array size

Author: Youssef1313

snippets/visualbasic/VS_Snippets_VBCSharp/VbVbcnProcedures/VB/Class1.vb

@@ -11,11 +11,11 @@ Public Class Class1
 
   '****************************************************************************
   '<Snippet66>
-  Function allOnes(ByVal n As Integer) As Integer()
-      Dim i As Integer, iArray(n) As Integer
+  Function AllOnes(n As Integer) As Integer()
+      Dim iArray(n - 1) As Integer
       For i = 0 To n - 1
           iArray(i) = 1
-      Next i
+      Next
       Return iArray
   End Function
   '</Snippet66>