dim choice as integer
choice = msgbox "...",...
if choice = vbyes then
...
elseif choice = vbno then
...
end if
dim choice as integer
choice = msgbox "...",...
if choice = vbyes then
...
elseif choice = vbno then
...
end if
Permessi di invio
Rispondi quotando