Держи
Sub DataGrid1_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
On Error GoTo net
' Declare variables.
Dim DY, DX, RowValue, ColValue, CellLeft, CellTop

ColValue = DataGrid1.ColContaining(X)
RowValue = DataGrid1.RowContaining(Y)
' Get the height of the cell.
DY = DataGrid1.RowHeight
' Get the width of the cell.
DX = DataGrid1.Columns(ColValue).Width
CellLeft = DataGrid1.Columns(ColValue).Left
If RowValue <> -1 Then

CellTop = DataGrid1.RowTop(RowValue)
DataCombo1.Text = DataGrid1.Columns(ColValue). _
CellValue(DataGrid1.RowBookmark(RowValue))
DataCombo1.Move CellLeft, CellTop, DX, DY
DataCombo1.Drag ' Drag label outline.
End If
net:
End Sub