or
Private Const width As Integer = 300Private Const height As Integer = 100Dim number As Integer = 0Protected Sub RadButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadButton1.Click Dim text As RadTextBox = New RadTextBox() text.Width = Unit.Pixel(200) Dim note As RadNotification = New RadNotification() note.Width = Unit.Pixel(width) note.Height = Unit.Pixel(height) note.AutoCloseDelay = 0 note.Pinned = False note.Position = NotificationPosition.Center note.ShowCloseButton = True note.ContentIcon = Nothing note.TitleIcon = Nothing note.ID = "RadNotification" & number form1.Controls.Add(note) note.Show()End SubProtected 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