If KeyCode = vbKeyDelete Then
If (MsgBox("Sei sicuro di voler eliminare i messaggi selezionati?", vbYesNo) = vbYes) Then
Call EliminaMessaggio(CLng(Mid(lvwMessaggi.SelectedItem .Key, 6)))
Call CaricaLvwMessaggi(CStr(Cartella))
End If
End If
If KeyCode = vbKeyDelete Then
If (MsgBox("Sei sicuro di voler eliminare i messaggi selezionati?", vbYesNo) = vbYes) Then
Call EliminaMessaggio(CLng(Mid(lvwMessaggi.SelectedItem .Key, 6)))
Call CaricaLvwMessaggi(CStr(Cartella))
End If
End If
visitate www.pcprimipassi.it, il portale italiano per i neofiti del computer
"Tanto prima o poi ti buco...." disse il baco alla noce!
Permessi di invio
Rispondi quotando