Люди в VisualBasic
PrivateSubCommand_Click()
If MsgBox("Вы уверены?",vbYesNo,"","",0)=vbNo Then
Action=vbDataActionCancel
ExitSub
Else
End & выход из форума
End if
End
End Sub


FoxPro MESSAGEBOX(cMessageText [, nDialogBoxType [, cTitleBarText]])

нашел и все что к чему зделайте плз помогите

eMessageTitle = 'My Application'
eMessageText = 'Âû õîòèòå âûòè?'
nDialogType = 4 + 32 + 256
* 4 = Yes and No buttons
* 16 = Stop sign icon
* 256 = Second button is default
nAnswer = MESSAGEBOX(eMessageText, nDialogType, eMessageTitle)
DO CASE
CASE nAnswer = 6
THISFORM.RELEASE
CASE nAnswer = 7
WAIT WINDOW 'You chose No'
ENDCASE



нашел и еще кто ищет