Как отловить в своей программе нажатие CTRL + F - VB

Формулировка задачи:

Здравствуйте. Я в своей программе хочу сделать поиск среди textbox. И у меня есть некоторые недопонимания: 1) Как отловить в своей программе нажатие CTRL + F ???

                    Листинг программы
                
 
                        
                          
                    
If vbKeyControl Then
Select Case KeyCode
Case vbKeyF
Text1.Top = 200
Text2.Visible = True
Text2.Top = 0
Text2.Height = 200
Text2.SetFocus
Command1.Visible = True
Command4.Visible = True
vremvprog = False
Text2.BackColor = 8454143
End Select
End If
 
If vbKeyControl Then
Select Case KeyCode
Case vbKeyD
Text1.SelText = Date
Case vbKeyA
Text1.SelStart = 0
    Text1.SelLength = Len(Text1.text)
End Select
 
End If

Таким способом не работает. Какие другие способы есть??? 2) Сам поиск. Как сделать в поиске "предыдущий" ? Кнопка следующий у меня работает под таким кодом↓ А вот предыдущий работать не хочет....

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command2_Click()
On Error Resume Next
z = z + Text1.SelLength
z = InStr(z, Text1.text, Text2.text)
If z > 0 Then
Text1.SetFocus
Text1.SelStart = z - 1
Text1.SelLength = Trim(Len(Text2.text))
Text2.BackColor = 8453888
Else
Command4.Visible = True
Text2.SetFocus
Text2.BackColor = 8421631
z = 1
End If
 
End Sub

3) А можно ли сделать так чтоб найденый текст не выделялся, а менял цвет, размер и т.п. ? Заранее спасибо.

Решение задачи: «Как отловить в своей программе нажатие CTRL + F»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command2_Click()
z = z + Text1.SelLength
z = InStr(z, Text1.text, Text2.text)
If z > 0 Then
Text1.SetFocus
Text1.SelStart = z - 1
Text1.SelLength = Trim(Len(Text2.text))
Text2.BackColor = 8453888
Else
 
z = 1
End If
 
 
End Sub