引用:http://zhidao.baidu.com/question/95306345.html

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 If
End Sub