commands.add "DEMO","DEMO","DEMO","bmpINTERNET"

Sub Demo
	application.loadcontrol  "loadcontroldemo.ctlLoadcontrolDemo","F_DEMO","cbeibigbgbcidbeifcbbfbpbkcqcbbgimioc"
	application.panes("F_DEMO").show
End Sub