Mini Kabibi Habibi

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

Imports System.Collections
Imports System.ComponentModel

Namespace DevExpress.XtraGrid.Demos
	Partial Public Class ProgressForm
		Inherits DevExpress.XtraEditors.XtraForm

		Public Sub New(ByVal parent As Form)
			InitializeComponent()
			If parent IsNot Nothing Then
                Left = parent.Left + (parent.Width - Width) \ 2
                Top = parent.Top + (parent.Height - Height) \ 2
			End If
			Me.Height = progressBarControl1.Height + progressBarControl1.Top * 2 + 4
		End Sub

		Public Sub SetProgressValue(ByVal position As Integer)
			progressBarControl1.Position = position
			Me.Update()
		End Sub
	End Class
End Namespace