...
Private Sub AddBodyLabel()
 
        LblBody = New Label()
        MLocation = New Point(49, 31)
 
        With LblBody
            .Text = ""
            .Width = 310
            .Height = 87
            .AutoSize = False
            .Location = MLocation
            .BorderStyle = BorderStyle.None
            .BackColor = Color.Transparent
            .Font = BFont
            .Visible = True
        End With
 
    End Sub
 
    Private Sub AddPicture()
 
        PicBox = New PictureBox()
        MLocation = New Point(7, 31)
 
        With PicBox
            .Location = MLocation
            .BorderStyle = BorderStyle.None
            .BackColor = Color.Transparent
            .Width = 35
            .Height = 35
            .Visible = True
        End With
 
    End Sub
 
    Public Function ShowSAMAK_MESSAGE(ByVal MsgMessage As String, ByVal _
      MsgButton As MessageBoxButtons, _
                                 Optional ByVal MsgICon As MessageBoxIcon = _
                                 MessageBoxIcon.None, _
                                 Optional ByVal MsgHeader As String = "") As _
                                 DialogResult
 
        _HeaderTitle = MsgHeader.ToString()
        _BodyMessage = MsgMessage.ToString()
        _MessageIcon = MsgICon
        _MessageButton = MsgButton
 
        LblBody.Text = MsgMessage.ToString()
 
        If MessageBoxIcon.Asterisk = _MessageIcon Then
            PicBox.Image = System.Drawing.SystemIcons.Asterisk.ToBitmap()
        End If
 
        If MessageBoxIcon.Error = _MessageIcon Then
            PicBox.Image = System.Drawing.SystemIcons.Error.ToBitmap()
        End If
 
        If MessageBoxIcon.Exclamation = _MessageIcon Then
            PicBox.Image = System.Drawing.SystemIcons.Exclamation.ToBitmap()
        End If
 
        If MessageBoxIcon.Hand = _MessageIcon Then
            PicBox.Image = System.Drawing.SystemIcons.Hand.ToBitmap()
        End If
 
        If MessageBoxIcon.Information = _MessageIcon Then
            PicBox.Image = System.Drawing.SystemIcons.Information.ToBitmap()
        End If
 
        If MessageBoxIcon.Question = _MessageIcon Then
            PicBox.Image = System.Drawing.SystemIcons.Question.ToBitmap()
        End If
 
        If MessageBoxIcon.Warning = _MessageIcon Then
            PicBox.Image = System.Drawing.SystemIcons.Warning.ToBitmap()
        End If
 
        Call ShowButton(_MessageButton)
        Frm.ShowDialog()
 
        Return RetValue
 
    End Function
 
    ....