Private Sub lbxValues_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles lbxValues.KeyPress

        Dim KeyAscii As Short = Asc(e.KeyChar)

        If KeyAscii = 24 Then
            Dim i As Integer = lbxValues.SelectedIndex
            lbxValues.Items.RemoveAt(i)
        End If