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