MsFlexgridde kutucuğun tamamı sürüklenemez mi?

Şuan yukarda kırmızı olarak işaretlediğim şekilde tek kutucuk sürüklenip bırakılabiliyor.. Oradaki herhangi bir dersin üstüne gelip sürüklemek istediğim tek kutucuk halinde sürükleniyor.. Ben ise orada kaç saatse komple tutup sürüklemek istiyorum. Yani diğer bir deyimle istediğim aşağıdaki gibi tam olarak kutucuğu tutup sürüklemek..



Aşağıdaki kodlar ile sürük bırak yapabiliyorum..
Bilmiyorum kodları belki hatalı kullanıyor olabilirim, yardımcı olursanız sevinirim..

Private Sub MSFlexGrid1_DragDrop(Source As Control, x As Single, y As Single) 'Sürükle bırak komutlarımız
  With MSFlexGrid1
  If Not (.MouseCol < .FixedCols Or .MouseRow < .FixedRows) Then
    .TextMatrix(.MouseRow, .MouseCol) = Label1.Caption
  End If
  End With
End Sub
Private Sub MSFlexGrid1_DragOver(Source As Control, x As Single, y As Single, State As Integer) 'Sürükle bırak komutlarımız
  With MSFlexGrid1
    If Not (.MouseCol < .FixedCols Or .MouseRow < .FixedRows) Then
      .MousePointer = flexDefault
      .Row = .MouseRow: .Col = .MouseCol
    End If
  End With
End Sub
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 'Sürükle bırak komutlarımız
  With Label1
    .Move MSFlexGrid1.Left + MSFlexGrid1.CellLeft, MSFlexGrid1.Top + MSFlexGrid1.CellTop
    .Caption = MSFlexGrid1.Text
    .Drag 1

  End With
End Sub