Visual Basic

Sub MyMessageBox1(ByVal strMessage As String, ByVal imgImage As Image)
        Dim frmMsgBx As New Form
        Dim pbxMsgImage As New PictureBox
        Dim lblMsgText As New Label
        Dim btnMsgOK As New Button

        With frmMsgBx
            .MinimizeBox = False
            .MaximizeBox = False
            .Width = 50
            .Height = 20
            .AutoSize = True
            .BackColor = Color.MediumAquamarine
            .Text = "Saved"
            .StartPosition = FormStartPosition.CenterScreen
        End With
        With pbxMsgImage
            .Parent = frmMsgBx
            .Left = 12
            .Top = 12
            .Width = 50
            .Height = 50
            .Image = imgImage
            .SizeMode = PictureBoxSizeMode.StretchImage
        End With
        With lblMsgText
            .Parent = frmMsgBx
            .Left = 100
            .Top = 20
            .Width = 300
            .Height = 20
            .Text = strMessage
            .TextAlign = ContentAlignment.MiddleCenter
        End With
        With btnMsgOK
            .Parent = frmMsgBx
            .Left = 175
            .Top = 45
            .Width = 75
            .Height = 23
            .Text = "OK"
            .DialogResult = DialogResult.OK
            BackColor = Color.MediumAquamarine
        End With

        frmMsgBx.ShowDialog()
        Button3.Enabled = False
    End Sub
/pre>
In the same way is it possible to create a new FolderBrowserDialog???

Thanks in advance