Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/WPF/VB/MapDemo.Wpf/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/WPF/VB/MapDemo.Wpf/Program.vb

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

Namespace MapDemo
	Public Class Program
		<STAThread> _
		Shared Sub Main(ByVal args() As String)
			StartupBase.Run(Of Startup)(Nothing)
		End Sub
	End Class
	Public Class Startup
		Inherits DemoStartup
		Public Shared Sub InitDemo()
			Loader.DemoDataAssembly = GetType(DevExpress.DemoData.AssemblyMarker).Assembly
		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
	Public NotInheritable Class WinFormsMessageBoxHelper
		<DllImport("user32.dll", CharSet := CharSet.Auto)> _
		Friend Shared Function MessageBox(ByVal hWnd As IntPtr, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As UInteger) As Integer
		End Function

		Private Sub New()
		End Sub
		Public Shared Sub Show(ByVal message As String)
			Dim uType As UInteger = &H10000 Or &H10
			WinFormsMessageBoxHelper.MessageBox(IntPtr.Zero, message, "", uType)
		End Sub
	End Class
End Namespace