Javobingiz xato, yana urinib ko’ring

1 Makros xato javob uchun


Sub Wrong()
MsgBox ("Javobingiz xato, yana urinib ko’ring")
End Sub

2 Makros to’g’ri javob uchun

Sub Right()

MsgBox ("Javobingiz to’g’ri")
SlideShowWindows(1).View.Next
End Sub