vb.net用代码在TabPage1控件中添加一个 PictureBox控件，并加载gif图片，在不需要时移除PictureBox控件

form窗体

1，用代码在TabPage1控件中添加一个 PictureBox控件，并加载gif图片，

2，在不需要时移除PictureBox控件

 Private Sub load_pic()
        Dim p As New PictureBox
        p.Name = "PictureBox1"  ‘设置名字
        p.Size = New Size(300, 300)
        p.Location = New Point(10, 10)
        ' 加载GIF图片
        p.Image = Image.FromFile(Application.StartupPath & "\gif\alarm.gif")
        ' 将PictureBox添加到窗体上
        'Controls.Add(p)
        TabPage1.Controls.Add(p) '从某个控件中移除

  End Sub

 '移除名为PictureBox1的控件，用Me指当前窗体，否则用具体的控件名
        Dim PictureBoxes As Control() = TabPage1.Controls.Find("PictureBox1", True) '得到控件集合
        If PictureBoxes.Length = 1 AndAlso TypeOf PictureBoxes(0) Is PictureBox Then
            Dim pictureBox As PictureBox = DirectCast(PictureBoxes(0), PictureBox) ’得到指定的控件
            TabPage1.Controls.Remove(pictureBox) ‘移除
            If Not pictureBox Is Nothing Then pictureBox.Dispose()
        End If