Array issue and even more

' The automated VB IntelliPrompt features demoed here
' are part of the .NET Languages add-on, sold 
' separately from SyntaxEditor

' Hover over any identifier to get quick info
Imports System
Imports System.Collections.Generic
Imports System.Windows.Forms

Namespace ActiproSoftware.SyntaxEditor

    ''' <summary>
    ''' Start typing anywhere in the code to get
    ''' automated IntelliPrompt support like member
    ''' lists, complete word (Ctrl+Space), and
    ''' parameter info tips.
    ''' </summary>
    Public Class TestClass
        Inherits Control
        
        Public Sub MySub()
            Dim s As Integer() = New Integer(){"s1", "s2"}
            s(0). 'here no intellisense is shown
            'S.

            Dim e As String = String. 'as well as here
            Dim a As String
            a.
        End Sub

        ''' <summary>
        ''' Doubles the specified number.
        ''' </summary>
        ''' <param name="x">The number to double.</param>
        ''' <returns>The result.</returns>
        Public Function [Double](ByVal x As Integer) As Integer
            ' Type Me. to see a member list and then
            ' Add( to see a parameter info tip
            
            Return Me.Add(x, x)
        End Function
 
        ''' <summary>
        ''' Adds two numbers together.
        ''' </summary>
        ''' <param name="x">The first number.</param>
        ''' <param name="y">The second number.</param>
        ''' <returns>The result.</returns>
        Public Function Add(ByVal x As Integer, ByVal y As Integer) As Integer
            Dim result As Integer = x + y 
            Return result
        End Function

        ''' <summary>
        ''' Adds three number together.
        ''' </summary>
        ''' <param name="x">The first number.</param>
        ''' <param name="y">The second number.</param>
        ''' <param name="z">The third number.</param>
        ''' <returns>The result.</returns>
        Public Function Add(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) As Integer
            Dim result As Integer = x + y + z 
            Return result
        End Function

        ' Type ''' on the next line to see method
        ' XML documentation comment auto-complete

        Public Function Subtract(ByVal x As Integer, ByVal y As Integer) As Integer
            Dim result As Integer = x - y 
            Return result
        End Function
    End Class
End Namespace

    Dim e As String = String.

Public Class TestClass
        
    Public Sub MySub()
        Dim e As String = String.
    End Sub

End Class