السلام عليكم,, اضف الكود في Module
Public Function MsgBox2(ByVal Prompt As Object, Optional ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OkOnly, Optional ByVal Title As Object = Nothing) As MsgBoxResult
Dim Background As New Form
Background.FormBorderStyle = FormBorderStyle.None
Background.WindowState = FormWindowState.Maximized
Background.ShowInTaskbar = False
Background.BackColor = Color.Black
Background.Opacity = 0.6
Backgro