Imports Softelvdm.Controls
Imports Softelvdm.SftTabsNET

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    sftTabs1.AllowReordering = True
    sftTabs1.Scrolling.Style = ScrollingStyle.AlwaysRight
    For i As Integer = 5 To 14
        Dim t As TabClass = sftTabs1.TabCollection.Add()
        t.Text = "Tab " + i.ToString()
    Next
End Sub

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