How to make a listbox

listbox.png

PUBLIC SUB _new()
  lb1.Add("System.Charset")
  lb1.Add("System.Domain")
  lb1.Add("System.Home")
  lb1.Add("System.Host")
  lb1.Add("System.Language")
  lb1.Add("System.Path")
  lb1.Add("System.User")
END


PUBLIC SUB lb1_Click()
  IF Trim(lb1.Text) = "System.Charset" THEN
    Label1.Text = System.Charset
  ELSE IF Trim(lb1.Text) = "System.Domain" THEN
    Label1.Text = System.Domain
  ELSE IF Trim(lb1.Text) = "System.Home" THEN
    Label1.Text = System.Home
  ELSE IF Trim(lb1.Text) = "System.Host" THEN
    Label1.Text = System.Host
  ELSE IF Trim(lb1.Text) = "System.Language" THEN
    Label1.Text = System.Language
  ELSE IF Trim(lb1.Text) = "System.Path" THEN
    Label1.Text = System.Path
  ELSE IF Trim(lb1.Text) = "System.User" THEN
    Label1.Text = System.User
  ENDIF
END
  

-- JochenGeorges - 29 Dec 2004