السلام عليكم,, اضف الكود في 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