Private Sub Form3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles Me.KeyDown

Dim ctrl As Control = Me.SplitContainer3.ActiveControl
If Not TypeOf ctrl Is TextBox Then Exit Sub
If e.Control Then
  Select Case e.KeyCode
   Case Keys.A
    DirectCast(ctrl, TextBox).SelectAll()
   Case Keys.C
    DirectCast(ctrl, TextBox).Copy()
   Case Keys.X
    DirectCast(ctrl, TextBox).Cut()
   Case Keys.V
    DirectCast(ctrl, TextBox).Paste()
   Case Keys.Z
    DirectCast(ctrl, TextBox).Undo()
  End Select
End If

End Sub

↑を実行するとCtrl+A以外の条件ではKeyDownイベントが発生しないのですが
どんな原因が考えられるでしょうか?