•'Demonstrate
using part of an array
•Dim
stock(100)
As
String
•Dim
counter
As
Integer
•Private
Sub btnRecord_Click(...) Handles btnRecord.Click
• If (counter < 100) Then
• counter += 1 'Increment
counter by 1
• stock(counter) = txtCompany.Text
• txtCompany.Clear()
• txtCompany.Focus()
• txtNumber.Text = CStr(counter)
• Else
• MsgBox("No space to record additional
companies.", , "")
• txtCompany.Clear()
• btnsummarize.Focus()
• End If
•End
Sub