iyi günler

Public Function closingMsgBox(mesaj As String, Title As String, sure As Integer)

    CreateObject("WScript.Shell").PopUp mesaj, sure, Title, vbOKOnly + vbExclamation

End Function

ile kendiliğinden kapanan mesaj kutusu yapılıyor bunu 3 butonlu vbYesNoCancel olacak şekilde ayarlayıp istediğimiz bir butonu varsayılan olarak belirleyebilir miyiz
mesela hiç tıklanmazsa yes kabul etsin veya istersek no kabul etsin bu seçimi de fonksiyona argument olarak göndersek mümkün mü

' First, set up the message

'

strText = "Are you sure you want to copy" & Chr(13)

strText = strText & "the selected files to drive A?"

strTitle = "Copy Files"

intType = vbYesNoCancel + vbQuestion + vbDefaultButton2

'

' Now display it

'

Set objWshShell = WScript.CreateObject("WScript.Shell")

intResult = objWshShell.Popup(strText, ,strTitle, intType)

Abey geçen bir videoda gördüm.Adam mesaj için userform ekliyor.Onun içine butonlar ve icon ekleyiyor ve mesaj labeli.Aynı mesaj kutusu gibi oluyor.Mesaj çıkıncada 5 saniye sonra kapanıyor otomatik olarak.

Wait(now+time("00:00:05") gibi kod ekleme ile 5 saniye bekliyor ve olay tamam.

teşekkürler sn. @feraz

Set objWshShell = WScript.CreateObject("WScript.Shell")
satırında WScript fazlaydı onu sildim sadece
teşekkürler

strText = "Birşeyler yapılacak" & Chr(13)

strText = strText & "Yapmak istediğine eminmisin"

strTitle = "Onay Penceresi"

intType = vbYesNoCancel + vbQuestion + vbDefaultButton2

intSure = 5 'süre saniye cinsinden



Set objWshShell = CreateObject("WScript.Shell")

intResult = objWshShell.PopUp(strText, intSure, strTitle, intType)

objWshShell türü nedir 
Dim objWshShell as XXXXXX
XXXXXX yerine ne yazmalıyız