Listing 32.1  32LIST01.TXT - -Stale zwizane z funkcj MsgBox

' przyciski
vbOKOnly = 0    		' tylko przycisk OK
vbOkCancel = 1 		' przyciski OK, Anuluj
vbAbortRetryIgnore = 2 	' przyciski Przerwij,Ponw prb,Zignoruj
vbYesNoCancel = 3 	' przyciski Tak, Nie, Anuluj
vbYesNo = 4 		' przyciski Tak, Nie
vbRetryCancel = 5 	' przyciski Ponw prb, Anuluj

' przycisk domylny
vbDefaultButton1 = 0 	' domylnym jest pierwszy przycisk
vbDefaultButton2 = 256 	' domylnym jest drugi przycisk
vbDefaultButton3 = 512 	' domylnym jest trzeci przycisk

' ikona
vbCritical = 16 		' ikona komunikatu krytycznego
vbQuestion = 32 		' znak zapytania
vbExclamation = 48 	' wykrzyknik
vbInformation = 64 	' ikona informacyjna

' modalno
vbApplicationModal = 0 	' modalno aplikacyjna
vbSystemModal = 4096 	' modalno systemowa


' wynik funkcji MsgBox
vbOK = 1 			' wybrano przycisk OK
vbCancel = 2 		' wybrano przycisk Anuluj
vbAbort = 3 		' wybrano przycisk Przerwij
vbRetry = 4 		' wybrano przycisk Ponw prb
vbIgnore = 5 		' wybrano przycisk Zignoruj
vbYes = 6 = 		' wybrano przycisk Tak
vbNo = 7 = 			' wybrano przycisk Nie

