1,452
社区成员
![](https://csdnimg.cn/release/cmsfe/public/img/topic.427195d5.png)
![](https://csdnimg.cn/release/cmsfe/public/img/me.40a70ab0.png)
![](https://csdnimg.cn/release/cmsfe/public/img/task.87b52881.png)
![](https://csdnimg.cn/release/cmsfe/public/img/share-circle.3e0b7822.png)
Private Sub SSTab1_Click(PreviousTab As Integer)
Dim pic1 As PictureBox'pic1改为局部变量就行了
Dim cn As Integer
For cn = 0 To Controls.Count - 1
If Controls(cn).Name = "pic1" Then
Controls.Remove cn
Exit For
End If
Next cn
Set pic1 = Controls.Add("vb.picturebox", "pic1", SSTab1)
pic1.Move 120, 360, 1000, 1000
pic1.Visible = True
End Sub