vb6缩放无边框窗体

假设右下角图片控件是Picture1 Dim x0, y0Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then x0 = X: y0 = YEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Singl