Option Explicit On
 
Imports System
Imports System.Text
Imports System.Drawing
Imports System.Windows.Forms
Imports System.ComponentModel
Imports System.Drawing.Drawing2D
Imports System.Collections.Generic
 
Public Class AKLOIT
    Inherits Form
 
    ''' <summary>
    ''' Declare All Message Buttons
    ''' </summary>
    ''' <remarks></remarks>
 
    Private WithEvents CmdOk As Button
    Private WithEvents CmdYes As Button
    Private WithEvents CmdNo As Button
    Private WithEvents CmdCancel As Button
    Private WithEvents CmdAbort As Button
    Private WithEvents CmdRetry As Button
    Private WithEvents CmdIgnore As Button
 
    ''' <summary>
    ''' Declare All Message Variables
    ''' </summary>
    ''' <remarks></remarks>
 
    Private WithEvents Frm As Form
    Private WithEvents LblHeader As Label
    Private WithEvents PicBox As PictureBox
    Private WithEvents LblBody As Label
 
    Private RetValue As DialogResult
    Private MLocation As Point
    Private BSize As Size = Nothing
    Private BFont As New Font("Tahoma", 9, FontStyle.Bold)
 
    Private _HeaderTitle As String = ""
    Private _BodyMessage As String = ""
    Private _MessageIcon As MessageBoxIcon
    Private _MessageButton As MessageBoxButtons
 
    ''' <summary>
    ''' Set Constructor For MessageBox
    ''' </summary>
    ''' <remarks></remarks>
 
    Public Sub New()
 
        Frm = New Form()
        BSize = New Size(430, 150)
 
        With Frm
            .FormBorderStyle = Windows.Forms.FormBorderStyle.None
            .Size = BSize
            .StartPosition = FormStartPosition.CenterScreen
            .ShowIcon = False
            .TopMost = True
            .Text = ""
            .Font = BFont
            .Opacity = 0.85
            .ShowInTaskbar = False
            Call AddHeaderLabel()
            .Controls.Add(LblHeader)
            Call AddPicture()
            .Controls.Add(PicBox)
            Call AddBodyLabel()
            .Controls.Add(LblBody)
        End With
 
    End Sub
 
    Public Sub New(ByRef StartPosition As _
      System.Windows.Forms.FormStartPosition)
 
        Frm = New Form()
        BSize = New Size(430, 150)
 
        With Frm
            .FormBorderStyle = Windows.Forms.FormBorderStyle.None
            .Size = BSize
            .StartPosition = StartPosition
            .ShowIcon = False
            .TopMost = True
            .Text = ""
            .Font = BFont
            .Opacity = 0.85
            .ShowInTaskbar = False
            Call AddHeaderLabel()
            .Controls.Add(LblHeader)
            Call AddPicture()
            .Controls.Add(PicBox)
            Call AddBodyLabel()
            .Controls.Add(LblBody)
        End With
 
    End Sub
 
    ''' <summary>
    ''' Declare All Properties And Methods
    ''' </summary>
    ''' <remarks></remarks>
 
    Private Sub AddHeaderLabel()
 
        LblHeader = New Label()
 
        With LblHeader
            .Text = ""
            .Width = 430
            .Height = 23
            .Dock = DockStyle.Top
            .Font = BFont
            .Visible = True
        End With
 
    End Sub
 
    ...