اضافه عناصر الي الفورم - نسخة قابلة للطباعة

PHP كود :

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim TitelFN As Font = New Font("Arial", 10, FontStyle.Bold)
        Dim BadyFN As Font = New Font("Arial", 8)
        ShowNotification("Hello", TitelFN, Color.Black, "Welcome Back To Circle",
        BadyFN, Color.Green, FlowLayoutPanel1, Image.FromFile(".\ImageXT\doc1.png"), 6)
    End Sub

PHP كود :

Public Module NotificationShow
    ''' <summary>
    ''' اداة عرض التنبيه الجديدة من العاصم للبرمجيات
    ''' </summary>
    ''' <param name="TitelXT">عنوان التنبيه</param>
    ''' <param name="TitelFontXT">خط عنوان التنبيه</param>
    ''' <param name="TitelForeColoreXT">لون خط عنوان التنبيه</param>
    ''' <param name="BadyXT">رسالة  التنبيه</param>
    ''' <param name="BadyFontXT">خط رسالة التنبيه</param>
    ''' <param name="BadyForeColoreXT">لون خط رسالة التنبيه</param>
    ''' <param name="ImagePic">الصورة التي ستظهر على التنبيه</param>
    ''' <param name="ContanerXT">الحاوية التي سيعرض فيها التنبيه</param>
    ''' <param name="SecendShow">عدد الثواني التي سيعرض فيها التنبيه قبل الاغلاق</param>
    ''' <remarks>WWW.AL-ASEM.SOMEE.COM</remarks>
    Public Sub ShowNotification(TitelXT As String, TitelFontXT As Font, TitelForeColoreXT As Color,
                BadyXT As String, BadyFontXT As Font, BadyForeColoreXT As Color, ContanerXT As Control,
                ImagePic As Image, Optional SecendShow As Integer = 5)
        Dim NotificationXT As New Notification()
        Dim xxx As Image = My.Resources.DBBK
        NotificationXT.ImageXT = If(ImagePic Is Nothing, xxx, ImagePic)
        '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        NotificationXT.TitelLabelXT = TitelXT
        NotificationXT.TitelLabelFontXT = TitelFontXT
        NotificationXT.TitelLabelForeColoreXT = TitelForeColoreXT
        '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        NotificationXT.BadyLabelXT = BadyXT
        NotificationXT.BadyLabelFontXT = BadyFontXT
        NotificationXT.BadyLabelForeColoreXT = BadyForeColoreXT
        '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        NotificationXT.TimerIntervalXT = SecendShow * 1000
        ContanerXT.Width = NotificationXT.Width + 6
        NotificationXT.BorderStyle = BorderStyle.FixedSingle
        ContanerXT.Controls.Add(NotificationXT)
    End Sub
End Module