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