如何用VB判断控件是否存在？

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