# How to make a listbox

    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