This code works perfectly. It eliminated 20 lines of Else If code and prevented editing several hundred lines of code with many UserControl names, e.g. UserControl112.
Public Sub PKey_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
If e.KeyData = (Keys.Control Or Keys.P) Then
Dim Ctrl As Control = Me.ActiveControl
DirectCast(Ctrl, UserControl1).myPrint()
End If
End Sub