DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim bb As Object
On Error Resume Next
Err.Clear
Set bb = CreateObject("WScript.Shell")
If Err <> 0 Then
MsgBox "Error:" & Err
Else
bb.PopUp " Bu mesaj kutusu 3 saniye sonra kapanacak!!!", [COLOR="Red"]3[/COLOR], "Mesaj Başlığı ...", vbOKOnly + vbExclamation
End If