CHAMA FUNCAO DO BOTAO NO KEYUP DO FORM

  
    Private Sub faturamento_finalizar_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case Keys.Enter
                e.SuppressKeyPress = True [ô]codigo suprime o sim emitido pela tecla ENTER
                SendKeys.Send([Ô]{Tab}[Ô])
            Case Keys.F3
                If DtPagamentos.Rows.Count <> 0 Then
                    BtnNovoPedido
                End If
        End Select
    End Sub
 

  
  Private Sub BtnNovoPedido_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNovoPedido.Click

end sub