
---------------------------------------------------------------------

Public Sub btnDeleteProfil_Click()
  
  Dim s As String 
  
  Try s = ColumnView1.Current.Key
  If Error Then
    Message(("Select an item to be deleted."), "OK")
  Else
     ColumnView1.Remove(ColumnView1.Current.Key)
  Endif
  
  Module_Settings.StoreProgramSettings()

End

---------------------------------------------------------------------


