When this 2 labels are drag and drop onto Label 2, their co-ordinates will appear in the label, Status.
Everything above is fine. I get the coordinates at the Status label. I then inserted a Command Button so that when the user click on it, a notepad will print the co-ordinates. But I didn't manage to open the notepad when i click on the button.
Anyone can help?
Private Sub Command1_Click()
Dim Source As Integer
Source = FreeFile
Open "Output.txt" For Output As #Source
Write #Source; << -- error here
Private Sub Label2_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X - MouseX, Y - MouseY
Status.Caption = "dropped on label 2, x=" & X & " y = " & Y