Forma 1 Tane Label , Bitanede Listbox ekleyin Formun MouseDown ozelliğine Yapıştırın
Acıklaması:Mouse ile formum neresine tıklarsanız labelde X ve Ykordinatlarını Size verecek Listbox ise Label değerleri kaydedecek yani formda nereye tıklarsanı kaydını yapıcak



If e.Button = Windows.Forms.MouseButtons.Left Then
Label1.Text = "X =" + CStr(e.X) + " Y=" + CStr(e.Y)
ListBox1.Items.Add(Label1.Text)
End If
__________________