Mesaja Süre Eklemek

[baydeniro]

Merhaba Arkadaşlar

Aşağıdaki mesaj kod satırına süre eklemek istiyorum. Ama çok karıştırmama rağmen çözemedim. Bu koda 3 saniye nasıl eklenir acaba ?

If (InternetCheckConnection(URL & "/", &H1, 0&) = 0) Then MsgBox "internet bağlantısı yok": Exit Sub

 

[halit3]

bunu bir dene

If (InternetCheckConnection(URL & "/", &H1, 0&) = 0) Then CreateObject("WScript.Shell").Popup " internet bağlantısı yok " & vbCrLf & "", 3, " bekle?", vbOKOnly + vbInformation: Exit Sub

 

[baydeniro]

halit3 üstadım desteğiniz için çok teşekkür ediyorum. Çok şık oldu böyle. Sağlıcakla kalın