Dim menuItem As New MenuItem() With {
.Value = row("MenuId").ToString(),
.Text = "<a href='MenuMasterSide.master?menuid=" & row("MenuId").ToString() & "'><img src='images/orange_square.gif'></a>" & " " & row("Title").ToString(),
.NavigateUrl = row("Url").ToString(),
.Selected = row("Url").ToString().EndsWith(currentPage, StringComparison.CurrentCultureIgnoreCase)
}
this is getting close but not!