Объясню кратко. Если будет непонятно, то напишу подробнее.
Ставишь PictureBoxы справа от FlexGrid и снизу FlexGrid (PictureBoxы будут служить растягивателями для FlexGrid). Называешь их picVer (для правого) и picHor (для нижнего).
Используется глобальная переменная для того, чтобы знать, когда нажата мышка и идёт изменение размера FlexGrid.
И вот прога:

Option Explicit

Private blMouseDown As Boolean

Private Sub Form_Load()
blMouseDown = False
End Sub



Private Sub picHor_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
blMouseDown = True
End Sub
Private Sub picHor_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
blMouseDown = False
End Sub

Private Sub picHor_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static sprevY As Single


If sprevY = 0 Then
sprevY = Y
Else
If blMouseDown Then
picHor.Top = picHor.Top + (Y - sprevY)
flxGrid.Height = flxGrid.Height + (Y - sprevY)
picVer.Height = picVer.Height + (Y - sprevY)
End If
End If
End Sub



Private Sub picVer_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
blMouseDown = True
End Sub
Private Sub picVer_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
blMouseDown = False
End Sub

Private Sub picVer_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static sprevX As Single


If sprevX = 0 Then
sprevX = X
Else
If blMouseDown Then
picVer.Left = picVer.Left + (X - sprevX)
flxGrid.Width = flxGrid.Width + (X - sprevX)
picHor.Width = picHor.Width + (X - sprevX)
End If
End If
End Sub

Так в чём проблема поставить If и контролировать, чтобы не заезжало за отрицательные границы...?
Я же только принцып сделал.
:-)