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 IfEnd Sub