Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/Silverlight/VB/RibbonDemo/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/Silverlight/VB/RibbonDemo/Program.vb

Imports Microsoft.VisualBasic
Imports System
Imports System.Windows
Imports DevExpress.DemoData
Imports DevExpress.Xpf.DemoBase
Imports DevExpress.Xpf.DemoBase.Helpers
Imports DevExpress.DemoData.Helpers

Namespace RibbonDemo
	Public Class App
		Inherits Application
		Public Sub New()
			StartupBase.Run(Of Startup)(Me)
		End Sub
	End Class
	Public Class Startup
		Inherits DemoStartup
		Public Shared Sub InitDemo()
#If (Not EXTMAP) Then
			Loader.DemoDataAssembly = GetType(DevExpress.DemoData.AssemblyMarker).Assembly
#End If
		End Sub
		Protected Overrides Function GetDebug() As Boolean
#If DEBUG Then
			Return True
#Else
			Return False
#End If
		End Function
		Protected Overrides Function GetFixtureTypeForXBAPOrSLTesting() As Type
			Return Nothing
		End Function
	End Class
End Namespace