1,445
社区成员




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