Mini Kabibi Habibi

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

Imports System.Collections
Imports System.ComponentModel

Namespace DevExpress.XtraTreeList.Demos
	Partial Public Class ExportForm
		Inherits DevExpress.XtraEditors.XtraForm

		Public Sub New(ByVal parent As Form)
			InitializeComponent()
			Me.ClientSize = New Size(pictureBox1.Image.Width + Me.DockPadding.All * 2, pictureBox1.Image.Height + Me.DockPadding.All * 2)
			If parent IsNot Nothing Then
                Left = parent.Left + (parent.Width - Width) \ 2
                Top = parent.Top + (parent.Height - Height) \ 2
			End If
		End Sub
	End Class
End Namespace