Here you go - I wrote this in a hurry so be careful!
<pseudocode>
Private Sub MapControls(ByVal container As
Windows.Forms.Control.ControlCollection)
For Each c As Control In container
AddHandler c.MouseDown, AddressOf HandleMouseDown
If c.Controls.Count 0 Then
MapControls(c.Controls)
End If
Next
End Sub
Private Sub HandleMouseDown(ByVal sender As System.Object, ByVal e
As System.Windows.Forms.MouseEventArgs) Handles
ProductionName.MouseDown
MsgBox("X:" & e.X & " Y:" & e.Y)
End Sub
</pseudocode>
Thanks,
Seth Rowe
sagar wrote:
hi seth
sorry for late reply
i ll be very thankful to u if u provide me the code
thanks
sagar