09-11-15, 01:31 PM
اضف الكود التالي في Module
اطلبه عن طريق Msgbox2
كود :
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