引用:

Private Sub Form_load()    Dim i As Integer    For i = 0 To Me.Controls.Count - 1        If Me.Controls.Item(i).Name = "Shape1" Then 'me 可以用你控件的窗体名称替换。            MsgBox "存在"            Exit Sub        End If    Next    If i > Me.Controls.Count - 1 Then        MsgBox "不存在"    End IfEnd Sub