Bind all DotNetNuke portal alias to a dropdownlist

ddlPortalAlias.Items.Clear()
Dim objAlias As PortalAliasCollection = PortalAliasController.GetPortalAliasLookup()
For Each obj As System.Collections.DictionaryEntry In objAlias
   ddlPortalAlias.Items.Add(CType(obj.Value, PortalAliasInfo).HTTPAlias)
Next
ddlPortalAlias.SelectedValue = PortalSettings.DefaultPortalAlias

HTH