[VB6] Aiuto per richiamare evento tasto Canc

[zorro77]

Salve a tutti
per cancellare una riga selezionata di un datagrid con il semplice tasto della tastiera "Canc" ho scritto in questo modo e funziona tranquillamente

Private Sub grdDataGrid_BeforeDelete(Cancel As Integer)

If MsgBox("Vuoi cancellare il record selezionato?", vbYesNo + vbDefaultButton2 + vbExclamation) = vbNo Then
    Cancel = 1
End If

End Sub

Ora voglio che la riga può essere cancellata anche da un bottone e ho scritto in quest'altro modo

 
Private Sub cmdDelData_Click()
    If grdDataGrid.ApproxCount <> 0 Then
        Dim valCanc As Integer
        valCanc = 0
        grdDataGrid_BeforeDelete (valCanc)
    Else: MsgBox ("Riga inesistente o non selezionata")
    End If
    
End Sub

Nel secondo caso però non mi viene cancellata nessuna riga, pur entrando in grdDataGrid_BeforeDelete