Как при попадании курсора на Textbox нажать на клавишу Insert? - VB

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

Подскажите пожалуста, как при попобании курсора на Textbox програмным путем нажать на клавишу Insert (замена) Зарание спасибо.

Решение задачи: «Как при попадании курсора на Textbox нажать на клавишу Insert?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Declare Function SendMessage Lib 'user32' Alias 'SendMessageA' (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_KEYUP = &H101
Private Const VK_INSERT = &H2D
 
Private Sub Command1_Click()
 ' Установка фокуса и программное нажатие Insert
 Text1.SetFocus
 SendKeys '{INSERT}'
End Sub
 
Private Sub Command2_Click()
 ' Посылается программное нажатие Insert, НО ФОКУС НЕ УСТАНАВЛИВАЕТСЯ
 SendMessage Text1.hwnd, WM_KEYUP, VK_INSERT, 0
End Sub
 
Private Sub Text1_GotFocus()
 Label1.Caption = 'Включен Insert'
End Sub
 
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
 ' Если KeyCode = 45 значит Insert
 MsgBox KeyCode
End Sub