Define Popup P_List Define Bar 1 of P_List; Prompt "Inside the .NET Framework"; Font "Tahoma", 14 Style "BI"; Color, RGB(255,255,255,192,0,0) Define Bar 2 of P_List; Prompt " In This Section"; Font "Tahoma", 11 Style "B" Define Bar 3 of P_List; Prompt " Commion Language Runtime"; Font "Tahoma", 9 lcpicture=IIF(VERSION(4)>"06.",'Picture "Stamp.bmp"','') Define Bar 4 of P_List; Prompt " Assemblies"; Font "Tahoma", 9; &lcpicture Define Bar 5 of P_List; Prompt " Application Domains"; Font "Tahoma", 9 Define Bar 6 of P_List; Prompt " Common Type System"; Font "Tahoma", 9 Define Bar 7 of P_List; Prompt " Related Section"; Font "Tahoma", 11 Style "B" Define Bar 8 of P_List; Prompt " Class Library"; Font "Tahoma", 8 with this.List1 .Rowsource="P_List" .RowsourceType=9 endwith
DO WHILE .T. ME.Work() ENDDO