Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    sftTabs1.MakeNaturalSize()
    PopulateList()
End Sub

Private Sub PopulateList()
    listBox1.Items.Clear()
    listBox1.Items.Add("Display all items starting with the letter " + sftTabs1.TabCollection(sftTabs1.Current).Text)
    For i As Integer = 1 To 20
        listBox1.Items.Add(sftTabs1.TabCollection(sftTabs1.Current).Text + " " + i.ToString())
    Next
End Sub

Private Sub sftTabs1_Switched(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sftTabs1.Switched
    PopulateList()
End Sub

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
    Application.Exit()
End Sub
End Class