or
Protected Sub RadListBoxSource_Transferred(ByVal sender As Object, ByVal e As RadListBoxTransferredEventArgs) Handles RadListBoxSource.Transferred
If RadListBoxDestination.Items.Count > 0 AndAlso Not ("8".Equals(rblAwardType.SelectedValue)) Then
RadListBoxSource.ButtonSettings.TransferButtons = ListBoxTransferButtons.TransferTo
Else
RadListBoxSource.ButtonSettings.TransferButtons = ListBoxTransferButtons.TransferFrom
End If
End Sub