'宣言 Protected Overridable Function OnCreateAutomationPeer() As System.Windows.Automation.Peers.AutomationPeer
'使用法 Dim instance As SearchToolbar Dim value As System.Windows.Automation.Peers.AutomationPeer value = instance.OnCreateAutomationPeer()
protected virtual System.Windows.Automation.Peers.AutomationPeer OnCreateAutomationPeer()