sonuc = MsgBox("Silmek İstediğinize Emin Misiniz ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Silme İşlemi")
If sonuc = MsgBoxResult.Yes Then
msgbox("silindi")
Else
msgbox("silinmedi")
End If