デザイナーからコントロールを削除し、ビデオを変更するたびにコントロールの新しいインスタンスを作成しました もちろん、コントロールの以前のインスタンスを削除します たとえば
Dim prevControl() As Control = Me.Controls.Find("flashVideoPlayer", True)
Try
tbVideo.Controls.Remove(prevControl(0))
Catch ex As Exception
End Try
Dim video As AxShockwaveFlash = New AxShockwaveFlash()
video.Name = "flashVideoPlayer"
Dim strMovie As String = CType(ComboBox1.SelectedItem, ComboBoxItem).Value.ToString.Replace("watch?v=", "v/")
video.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Top
video.Location = New Point(0, 27)
video.Size = New Size(tbVideo.Width, tbVideo.Height - 27)
tbVideo.Controls.Add(video)
video.LoadMovie(0, strMovie)