Working with Arrays

Public Class Form1
    Dim str(10) As String
    Dim incr As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'inserting values to array
        For incr = 0 To 10

            str(incr) = InputBox("enter name")

        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'display all the array values
        For incr = 0 To str.Length - 1
            MessageBox.Show(str(incr))
        Next

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        incr = 0
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'search for a particular string
        Dim searchStr As String
        searchStr = InputBox("enter a string")
        For incr = 0 To str.Length - 1

            'a string contains a string
            If str(incr).Contains(searchStr) Then
                MessageBox.Show(str(incr))
            End If

        Next

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'remove a particular string
        Dim searchStr As String
        searchStr = InputBox("enter a string")

        'using of list object to remove a string
        Dim strList As List(Of String) = str.ToList()
        strList.Remove(searchStr)
        str = strList.ToArray()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        'search for a particular string
        Dim searchStr As String
        searchStr = InputBox("enter a string")
        For incr = 0 To str.Length - 1

            'a string contains a string
            If str(incr).EndsWith(searchStr) Then
                MessageBox.Show(str(incr))
            End If

        Next
    End Sub

  
End Class