Private Sub frmcot_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
  Me.KeyPreview = True
  End Sub
 
 
    Private Sub frmcot_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.Control And Keys.F Then
            Me.ToolStripTextBox2.Focus()
        End If
    End Sub

fg viperbone