Moveable pic's

[Wortel Angels]

[](http://www.pic-upload.de/view-15035261/Unbenannt.png.html)

Added in frm_main
```
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
```
And to make the pic's moveable
```
Private Sub picCharacter_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
Const WM_NCLBUTTONDOWN = &HA1
    Const HTCAPTION = 2
    If Button = 1 Then
        ReleaseCapture
        SendMessage picCharacter.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
    End If

    If x > picCharacter.width - 10 Then
        If Y < -picCharacter.height + 281 Then
        picCharacter.Visible = False
        End If
    End If
End Sub
```
It works but how can i fix it that this gray thing isnt there if i move it

[JohnPony]

Is the picCharacter part of the picScreen, Or is it part of the form?

[Justn]

Part of the form I have the same problem with the gray appearing when dragging any window across picscreen

[JohnPony]

Set the picScreen to stop drawing when your dragging a picturebox over it? And when you stop, refresh and redraw?

[Wortel Angels]

yes all stops and if you strop moving it will continue

[Exception]

The API call stops the thread of execution.

You don't need an API for this, you can just cleverly use the MouseDown event, alone, and it won't stop it. Have a go, and if you get stuck, I'll provide a few code snippets. =D

[Wortel Angels]

Ok i got it :D
Thanks to gooby http://www.touchofdeathforums.com/smf2/index.php/topic,77908.0.html
And Wing on post #6
```

Private Sub imgCharacter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If y < -imgCharacter.height + 281 Then
    Dragging = True
    prevX = X
    prevY = Y
    End If
End Sub
```
But its not an fix its another way to do it ;-) Lenn if you know the fix i think this is good too

[Joyce]

```
Static MouseX As Long, MouseY As Long

    If Button = 1 And DragBankSlotNum = 0 Then
        If Y < 22 Then

            TempX = picBank.Left + (X - MouseX)
            TempY = picBank.top + (Y - MouseY)

            If TempX < 0 Then TempX = 0
            If TempX > (picscreen.scalewidth - picBank.width) Then TempX = (800 - picBank.width)
            If TempY < 0 Then TempY = 0
            If TempY > (picscreen.scaleheight - picBank.height) Then TempY = (480 - picBank.height)

            picBank.Left = TempX
            picBank.top = TempY

        End If
    Else
        MouseX = X
        MouseY = Y
    End If
```^ Taken from picBank's mousemove sub. Another way to do it along with some code to keep it on your picscreen.

Anyway, that will always happen because we're using GDI components sliding over it, it will be there in lesser or greater extends unless you convert the menus over to full DirectDraw.