Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Form1_KeyDown(Me, New KeyEventArgs(Keys.Pause))
    End Sub
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Pause Then
            MsgBox("pause")
        End If
    End Sub