Mini Kabibi Habibi

Imports System.Collections
Imports System.ComponentModel

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

		Private aIcon As Image
		#Region "Ctor"
		Public Sub New(ByVal s() As String, ByVal img As Image)
			InitializeComponent()
			Try
				Me.label16.Font = New System.Drawing.Font(DevExpress.Utils.AppearanceObject.DefaultFont, System.Drawing.FontStyle.Bold)
				Me.label15.Font = Me.label16.Font
				Me.label14.Font = Me.label15.Font
				Me.label3.Font = Me.label14.Font
				Me.label2.Font = Me.label3.Font
				Me.label5.Font = Me.label2.Font
				Me.label4.Font = Me.label5.Font
				Me.label1.Font = Me.label4.Font
			Catch
			End Try
			label6.Text = If(s(0) = "", My.Resources.NoFilter, s(0))
			label7.Text = s(1)
			label9.Text = s(2)
			label10.Text = s(3)
			label11.Text = s(4)
			label12.Text = s(5)
			label13.Text = s(6)
			aIcon = img
		End Sub
		#End Region
        Private Overloads Sub OnPaint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
            If aIcon IsNot Nothing Then
                e.Graphics.DrawImageUnscaled(aIcon, 10, 10)
            End If
        End Sub
	End Class
End Namespace