Private Const WM_USER = &H400&
Private Const TBM_GETTOOLTIPS = (WM_USER +  30 )
Private Const TTM_ACTIVATE = (WM_USER +  1 )

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

Public Function Slider_ActivateToolTips(hwndSlider As Long, _
                                        bEnabled As Boolean) As Long
   Dim hToolTips As Long
  'retrieve the handle to the ToolTip
  'control assigned to the slider
   hToolTips = SendMessage(hwndSlider, _
                           TBM_GETTOOLTIPS, _
                           ByVal  0 &, _
                           ByVal  0 &)
   If hToolTips <>  0  Then
      'activate or deactivate the ToolTip control
       Slider_ActivateToolTips = SendMessage(hToolTips, _
                                             TTM_ACTIVATE, _
                                             ByVal Abs(bEnabled), _
                                             ByVal  0 &)
   End If
End Function

Private Sub Form_Load()
    Slider_ActivateToolTips Slider1.hWnd, False
End Sub

Private Sub Slider1_GotFocus()
    Dim RC As RECT
    GetClientRect Slider1.hwnd, RC
    DrawFocusRect Slider1.hwnd, RC
    Slider1.Refresh
End Sub

Dim AllowFocus As Boolean
Private Sub Form_Load()
    AllowFocus = False
End Sub
Private Sub SliderQ_KeyDown(KeyCode As Integer, Shift As Integer)
    If AllowFocus = False Then
        If KeyCode =  37  Or KeyCode =  38  Or KeyCode =  39  Or KeyCode =  40  Or KeyCode =  9  Then
            AllowFocus = True
            showF
            CommandOK.SetFocus
        End If
    End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If AllowFocus = False Then
        If KeyCode =  37  Or KeyCode =  38  Or KeyCode =  39  Or KeyCode =  40  Or KeyCode =  9  Then
            AllowFocus = True
            showF
        End If
    End If
End Sub

Sub showF()
    Frame1.Left = Frame1.Left -  10 
    Frame1.Top = Frame1.Top -  20  'хотя не понимаю почему 20 а не 10
    Frame1.Width = Frame1.Width +  50 
    Frame1.Height = Frame1.Height +  30 
    SliderQ.Left = SliderQ.Left +  10 
    SliderQ.Top = SliderQ.Top +  10 
End Sub