Si lo necesitas para WinForms... Esta es la solución que te ofrezco:
Código vb:
Ver originalPrivate Sub _KeyDown(sender As Object, e As KeyEventArgs)
Dim iCodigo As Integer = e.KeyCode
If e.Control AndAlso iCodigo = 66 Then
txtBuscar.Focus()
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
For Each oControl As Control In Controls
AddHandler oControl.KeyDown, AddressOf _KeyDown
Next
End Sub