Mini Kabibi Habibi

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

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Windows.Forms
Imports DevExpress.Xpo
Imports DevExpress.Xpo.DB

Namespace ContactManagement
	Friend Class Program
		Private Sub New()
		End Sub
		<STAThread> _
		Shared Sub Main(ByVal args As String())
			Try
				Dim forcedConnectionString As String = Nothing
				If Not args Is Nothing AndAlso args.Length = 1 Then
					forcedConnectionString = args(0)
				End If
				XpoDefault.DataLayer = XpoDefault.GetDataLayer(forcedConnectionString, AutoCreateOption.DatabaseAndSchema)
				Application.Run(New MainForm())
			Catch e As Exception
				MessageBox.Show(e.ToString(), "ContactManagement", MessageBoxButtons.OK, MessageBoxIcon.Error)
			End Try
		End Sub

	End Class
End Namespace