Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data

Namespace DevExpress.XtraNavBar.Demos
	''' <summary>
	''' Summary description for AddGroups.
	''' </summary>
	Public Partial Class AddGroups
		Inherits TutorialControl
		Public Sub New()
			'
			' Required for Windows Form Designer support
			'
			InitializeComponent()
			ChangeGroups()
			'
			' TODO: Add any constructor code after InitializeComponent call
			'
		End Sub

		'<button2>
		Private ReadOnly Property LastGroup() As NavBarGroup
			Get
				If navBarControl1.Groups.Count > 0 Then
					Return navBarControl1.Groups(navBarControl1.Groups.Count - 1)
				End If
				Return Nothing
			End Get
		End Property
		'</button2>


		'<button1>
		Private i As Integer = 0

		Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
            Dim navBarGroup As DevExpress.XtraNavBar.NavBarGroup = navBarControl1.Groups.Add()
            i += 1
            navBarGroup.Caption = "Group " & i.ToString()
			ChangeGroups()
		End Sub
		'</button1>

		'<button2>
		Private Sub button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button2.Click
			If Not LastGroup Is Nothing Then
				LastGroup.Dispose()
			End If
			ChangeGroups()
		End Sub
		'</button2>

		Private Sub ChangeGroups()
			button2.Enabled = Not LastGroup Is Nothing
		End Sub
	End Class
End Namespace