Подайте мысль или пример

Option Explicit
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
 
Dim Popup As frmPopup
Dim Rc As ADODB.Recordset
Dim DB As ADODB.Connection
Dim Oz As Long, Capt As Boolean
 
Private Sub Form_Load()
    Set DB = New ADODB.Connection
    DB.CursorLocation = adUseClient
    DB.ConnectionString = "Provider=Microsoft.Jet.oledb.4.0;" & _
    "Data Source=" & App.Path & "\DB.MDB"
    DB.Open
    Set Rc = DB.Execute("SELECT * FROM tblMain")
    Set Grid.DataSource = Rc
    Set Popup = New frmPopup
End Sub
Private Sub Grid_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Capt = False: ReleaseCapture
End Sub
Private Sub Grid_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Capt = False: ReleaseCapture
End Sub
Private Sub Grid_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim Z As Long
    If Not Capt Then SetCapture Grid.hwnd: Capt = True
    If X < 0 Or X > Grid.Width Or Y < 0 Or Y > Grid.Height Then
        Oz = -1: ReleaseCapture: Capt = False: Popup.Hide: Exit Sub
    End If
    If Y > Grid.RowPos(Grid.Rows - 1) + Grid.RowHeight(Grid.Rows - 1) Then Popup.Hide: Oz = -1: Exit Sub
    Z = Grid.MouseRow: If Z <> Oz Then Oz = Z: RefreshPopup
    X = Me.Left + Grid.Left + X: Y = Me.Top + Grid.Top + Y + (Me.Height - Me.ScaleHeight)
    Popup.Move X, Y
End Sub
Private Sub RefreshPopup()
    With Popup
    If Oz Then
        .lblField(0) = Grid.TextMatrix(Oz, 1)
        .lblField(1) = Grid.TextMatrix(Oz, 2)
        .lblField(2) = Grid.TextMatrix(Oz, 3)
        .lblField(3) = Grid.TextMatrix(Oz, 4)
        .lblField(4) = Grid.TextMatrix(Oz, 5)
        .Visible = True
        Me.SetFocus
    Else
        Oz = -1
        .Visible = False
    End If
    End With
End Sub

Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const WS_EX_TOOLWINDOW = &H80&
Private Const GWL_EXSTYLE = (-20)
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const HWND_TOPMOST = -1
 
Private Sub Form_Load()
    SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_TOOLWINDOW
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub