Private Sub sevGrid1_DragDrop(Source As Control, x As Single, Y As Single)
  With sevGrid1
    If .GetRowFromCursor > 0 And .GetColFromCursor > 0 Then
      .Text(.GetRowFromCursor, .GetColFromCursor) = msDragText
    End If
  End With
End Sub