[HASAN6.0]

اضف الكود التالي في 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.2
       Background.TopMost = True
       Background.Show()
       Dim x As New MsgBoxResult
       x = MsgBox(Prompt, Buttons, Title)
       Background.Close()
       Return x
   End Function

اطلبه عن طريق Msgbox2