vb6缩放无边框窗体

vb6缩放无边框窗体

假设右下角图片控件是Picture1
Dim x0, y0
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then x0 = X: y0 = Y
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
    If Picture1.Left + X - x0 < 0 Then X = x0
    If Picture1.Top + Y - y0 < 0 Then Y = y0
    Picture1.Move Picture1.Left + X - x0, Picture1.Top + Y - y0
    DoEvents
    Me.Width = Me.Width + X - x0
    Me.Height = Me.Height + Y - y0
  End If
End Sub