[RESOLVED] Form Drag Problem

[Brian M.]

Hello. I got this source from here or planet source code, and it makes a picture into a clock. I used it to create a custom clock and it drags around just fine on my computer. I am running 98se. But when I send it to my friends, it won't drag around their desktop. Can someone help me sort this out? Thanks.

You need one form with form color set to &H00FF00FF&: picture on the form, a picturebox: blank, a label, and a timer with interval of 10. I posted the code for the form and the module is an attachment. Make sure you put the blank picturebox on top of the graphics that will show, it is what closes the window, that is if you want to see it in action.


Form Code

Private Sub Form_Load()
 
AutoFormShape clock, RGB(255, 0, 255)
clock.Show 1
End Sub
 
 
Private Sub Image1_Click()
End
End Sub
 
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
   Call ReleaseCapture
   SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub