Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Drawing
Imports System.Windows.Forms
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.LookAndFeel
Imports DevExpress.Utils
Imports DevExpress.XtraBars

Namespace DevExpress.XtraNavBar.Demos
	Public Class TutorialControl
        Inherits DevExpress.Tutorials.ModuleBase
        Public Sub New()
            Me.AutoScroll = True
        End Sub

        Public Overridable ReadOnly Property ShowLookAndFeel() As Boolean
            Get
                Return True
            End Get
        End Property
    End Class
    Public Class NavBarTutorialMenu
        Inherits DevExpress.DXperience.Demos.LookAndFeelMenu
        Public Sub New(ByVal manager As BarManager, ByVal lookAndFeel As DefaultLookAndFeel, ByVal about As String)
            MyBase.New(manager, lookAndFeel, about)
        End Sub
        Protected Overrides ReadOnly Property ProductName() As String
            Get
                Return "XtraNavBar"
            End Get
        End Property
        Protected Overrides Sub biProductWebPage_Click(ByVal sender As Object, ByVal e As ItemClickEventArgs)
            System.Diagnostics.Process.Start("http://www.devexpress.com/Products/NET/WinForms/XtraNavBar/")
        End Sub
        Protected Overrides Sub miAboutProduct_Click(ByVal sender As Object, ByVal e As ItemClickEventArgs)
            DevExpress.Utils.About.AboutForm.Show(GetType(DevExpress.XtraNavBar.NavBarControl), DevExpress.Utils.About.ProductKind.DXperienceWin, DevExpress.Utils.About.ProductInfoStage.Registered)
        End Sub
    End Class

End Namespace