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