when i move the play list, instead of moving it, it makes a copy of it to the place where i move it, like sometimes when you get an illigal operation, and you move it, it just kinda leaves a copy of the form on your screen, well this is like that, and after that, my computer works very slow.... i have 1328mb of ram, and my resources are high, well here's the code:
if anyone could let me know how to fix it, i'd appreicate itCode: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
Private Declare Sub ReleaseCapture Lib "user32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Sub Form_Load()
frmMP3.Visible = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lngReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
lngReturnValue = SendMessage(frmPlaylist.hwnd, WM_NCLBUTTONDOWN, _
HTCAPTION, 0&)
For inta = 1 To 500
For intb = 1 To 3030
If frmPlaylist.Left = frmMP3.Left + frmMP3.Width + inta Then
If frmPlaylist.Top = frmMP3.Top + frmMP3.Height - intb Then
MsgBox "you're close to the right"
End If
End If
If frmPlaylist.Left = frmMP3.Left + frmMP3.Width - inta Then
If frmPlaylist.Top = frmMP3.Top + frmMP3.Height - intb Then
MsgBox "you're close to the left"
End If
End If
Next intb
Next inta
End If
End Sub
