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:

Code:
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
if anyone could let me know how to fix it, i'd appreicate it