Originariamente inviato da xegallo
è comunque un cast da fare
va bene, allora correggo il codice:

codice:
private sub cmdesci_click

   dim strmsg as string
   dim strtit as string
   dim intrisposta as LONG

   strmsg="sei sicuro di volere uscire?"
   strtit="chiudi"
   intrisposta=msgbox(strmsg,vbquestion + vbyesno,strtit)
   if intrisposta=vbyes then
       end
   end if 

end sub
così xeg è contento...:gren: