[EO] Arrastando Janelas no Jogo

Abra o Cliente

1 - Vá até Ex:
Private Sub picInventory_MouseDown

Obs.:Tem que ter o "Nome da janela" + _MouseDown

2 - Coloque o código:

Código:

    SOffsetX = X
    SOffsetY = Y

3 - Vá até Ex:
Private Sub picInventory_MouseMove

Obs.:Tem que ter o "Nome da janela" + _MouseMove

4)Coloque o código:

Código:

Call MovePicture(frmMain."Nome da janela", Button, Shift, X, Y)

Se a janela não tiver o "MouseMove", como o picOptions por exemplo, você tem que criar o "MouseDown" e o "MouseMove":

Código:

Private Sub picOptions_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    SOffsetX = X
    SOffsetY = Y

End Sub

Private Sub picOptions_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Call MovePicture(frmMain.picOptions, Button, Shift, X, Y)

End Sub