Visual Basic

Public Class Form1

    'Load Settings
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each item As String In My.Settings.lbCollection
            lbView.Items.Add(item)
        Next
    End Sub

    'Save settings when form closes
    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        My.Settings.Save()
    End Sub

    'Add settings when btn_Add" is clicked to listbox and settings
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If tbAddCollection.Text <> "" And lbView.Items.Contains(tbAddCollection.Text) = False Then
            lbView.Items.Add(tbAddCollection.Text)
            My.Settings.lbCollection.Add(tbAddCollection.Text)
        End If
    End Sub

    'Display selected item in Textbox
    Private Sub lbView_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbView.SelectedIndexChanged
        tbAddCollection.Text = lbView.SelectedItem
    End Sub

    'Remove selected item and its setting
    Private Sub btnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemove.Click
        If lbView.SelectedIndex <> -1 Then
            lbView.Items.RemoveAt(lbView.SelectedIndex)
            My.Settings.lbCollection.(lbView.SelectedItem)

        End If
    End Sub

End Class

<br />
'This is in Module1<br />
Option Explicit<br />
<br />
Private Type POINTAPI<br />
  X As Long<br />
  Y As Long<br />
End Type<br />
<br />
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long<br />
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long<br />
<br />
Function MouseX(Optional ByVal hWnd As Long) As Long<br />
  Dim lpPoint As POINTAPI<br />
  GetCursorPos lpPoint<br />
  If hWnd Then ScreenToClient hWnd, lpPoint<br />
  MouseX = lpPoint.X<br />
End Function<br />
<br />
Function MouseY(Optional ByVal hWnd As Long) As Long<br />
  Dim lpPoint As POINTAPI<br />
  GetCursorPos lpPoint<br />
  If hWnd Then ScreenToClient hWnd, lpPoint<br />
  MouseY = lpPoint.Y<br />
End Function<br />

<br />
'This is in Sheet1<br />
Option Explicit<br />
<br />
Private Sub Worksheet_SelectionChange(ByVal Target As Range)<br />
Range("A1").Value = MouseX<br />
Range("A2").Value = MouseY<br />
End Sub<br />