Io ho provato a simulare il problema e cambiando l' if così:
If e.KeyCode = Keys.F10 Then
Dim frmSc As New frmSconti
frmSc.GroupBox1.Visible = True
frmSc.btnOk.Visible = True
frmSc.btnAnnulla.Visible = True
frmSc.lblric.Text = "SI"
frmSc.ShowDialog(Me)
ecc..
end if
mi funziona, vedi se è quello che volevi..