Hi
this is VB code. Need some assist. for writting to B4PPC code PLEASE.
Private Sub imgRight_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim X2, Y2 As Single
On Error GoTo Hell:
X2 = X
Y2 = Y
If (Start) And Button = 1 Then
With imgRight
If .Left - X1 + X2 > imgMargin.Left Then
imgRight.Left = imgMargin.Left
Else
.Move imgRight.Left - X1 + X2
End If
End With
End If
Hell:
Exit Sub
End Sub
Thank you and Merry Xmas and Happy New Year.
Best regards.
William