private useimagesinradmenu as boolean = false
private basethemepath as string = "~/App_Themes/Default/Images/Menu/"

Private Sub GeneraMenuTelerik()
'Get the menu for this particular logged user from a user object defined outside. 
'It works fine.
Dim dt As DataTable = CurentUser.Menu.GetFullMenuAsDataTable()

basethemepath = String.Format("~/App_Themes/{0}/Images/Menu/", CurrentUser.Theme)
useimagesmenu as boolean = ValidateAllImgExist(basethemepath, dt)

useimagesinradmenu = useimagesmenu

Dim btninit As New RadMenuItem()

'for simplicity I only show how I generate a single databounditem, but there are more depending
'certain conditions.
With btninit
.EnableImageSprite = useimagesmenu
.HoveredImageUrl = String.Format(basethemepath + "/{0}_hover.png", "init")
.ImageUrl = String.Format(basethemepath + "/{0}_normal.png", "init")
.Target = "_Top"
.NavigateUrl = "~/Home.aspx"
.Text = "Home"
.ToolTip = "Go to system's home page"
End With
 
With TelerikRadMenu
With .Items
.Add(btninit)
End With

.DataSource = dt
.DataFieldID = "IdMenu"
.DataFieldParentID = "IdMenuParent"
.DataTextField = "Description" 'If I comment this line or set string.empty as value I get the text  "System.data.datarowview" else 
.DataNavigateUrlField = "TargetUrl"
.EnableEmbeddedSkins = Not useimagesmenu
.EnableImageSprites = useimagesmenu
.DataBind()
End With
End Sub

Protected Sub TelerikRadMenu_ItemDataBound(sender As Object, e As RadMenuEventArgs) Handles TelerikRadMenu.ItemDataBound
e.Item.ToolTip = CStr(DataBinder.Eval(e.Item.DataItem, "Tooltip"))
If CBool(DataBinder.Eval(e.Item.DataItem, "OpenInTopFrame")) Then
e.Item.Target = "_top"
Else
e.Item.Target = "mainFrame"
End If

if useimagesinradmenu Then
Dim imgbasename As String = DataBinder.Eval(e.Item.DataItem, "ImageBaseName ").ToString()
Dim imgnormal As String = String.Format("{0}{1}_normal.png", basethemepath, imgbasename)
Dim imghover As String = String.Format("{0}{1}_hover.png", basethemepath, imgbasename)

e.Item.ImageUrl = imgnormal
e.Item.HoveredImageUrl = imghover
End If
End Sub