Форумы HiProg.com - MS ACCESS, VBA, VB

ник: ddi

Private Declare Function msgcbox Lib "shlwapi" Alias "#185" (ByVal hWnd As Long, ByVal lpszText As String, ByVal lpszTitle As String, ByVal dwType As VbMsgBoxStyle, ByVal iDefault As Long, ByVal lpszId As String) As Long

Debug.Print msgcbox(0, 0000", "1111", vbAbortRetryIgnore, vbYes, _
"3333")

HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Explorer \ DontShowMeThisDialogAgain