Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo err1
If Button = 1 Then
Picture1.Move Picture1.Left + X
Picture1.ZOrder (0)
End If
Exit Sub
err1:
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo err1
If Button = 1 Then
Text1.Left = 0
If Picture1.Left < 1000 Then
Text1.Width = 1000
Picture1.Left = 1000
Else
If Picture1.Left > form1.Width Then
Text1.Width = form1.Width - 500
Picture1.Left = Text1.Width
Else
Text1.Width = Picture1.Left
End If
End If
Text2.Left = Text1.Width + Picture1.Width
Text2.Width = form1.Width - Text1.Width - Picture1.Width
End If
Exit Sub