Moving a picture

Ill try to keep this as short as I possibly can

1 form, form1.borderstyle = 0 - none

1 img, img1 is the picture on top of the form, so when you move it, the form moves. Ive tried to keep it as simple as I can:laugh: I rly need this

 

This is the simpliest way to do it (but not the best).
Add this code to your Form:

Code:

Option Explicit

Private blnMouseDown As Boolean
Private sX As Single
Private sY As Single

Private Sub img1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    blnMouseDown = True
    sX = x
    sY = y
End Sub

Private Sub img1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    If blnMouseDown = True Then
        Form1.Left = Form1.Left + (x - sX)
        Form1.Top = Form1.Top + (y - sY)
    End If
End Sub

Private Sub img1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    blnMouseDown = False
End Sub

 

Wow thx man! I could need someone like u to be my tutor ^^