redimensionar form sin bordes

[David]

Esto tal vez te sirva:

Código:

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
Picture1.CurrentX = X
Picture1.CurrentY = Y
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
Picture1.Left = X + Abs(Picture1.Left - Picture1.CurrentX)
Picture1.Top = Y + Abs(Picture1.Top - Picture1.CurrentY)
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
On Error Resume Next
Width = Picture1.Left + Picture1.Width
Height = Picture1.Top + Picture1.Height
End Sub

Necesitarás un PictureBox que servirá como modificador de Tamaño, de preferencia, colocalo en la esquina inferior derecha del Form....
Nos vemos