Do While Timer < lngTimeout
Select Case MsgBox("5 saniye içinde cevap vermezseniz 'Evet' kabul edilecektir.", vbOKOnly + vbExclamation, "Zaman Aşı!")
Case vbOK
Exit Do
End Select
Loop
If Timer >= lngTimeout Then
YesNoMsgBox = True
Else
YesNoMsgBox = (lngAnswer = vbYes)
End If
Do While Timer < lngTimeout
Select Case MsgBox("5 saniye içinde cevap vermezseniz 'Evet' kabul edilecektir.", vbOKOnly + vbExclamation, "Zaman Aşı!")
Case vbOK
Exit Do
End Select
Loop
If Timer >= lngTimeout Then
YesNoMsgBox = True
Else
YesNoMsgBox = (lngAnswer = vbYes)
End If
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.