Point = UserControl.Point(X, Y)
End Function

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UserControl,UserControl,-1,Picture
Public Property Get Picture() As Picture
Attribute Picture.VB_Description = "返回/設(shè)置控件中顯示的圖形。"
    Set Picture = UserControl.Picture
End Property

Public Property Set Picture(ByVal New_Picture As Picture)
    Set UserControl.Picture = New_Picture
    PropertyChanged "Picture"
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UserControl,UserControl,-1,PaletteMode
Public Property Get PaletteMode() As Integer
Attribute PaletteMode.VB_Description = "返回/設(shè)置一個(gè)值，決定對(duì)于對(duì)象的控件使用哪個(gè)調(diào)色板。"
    PaletteMode = UserControl.PaletteMode
End Property

Public Property Let PaletteMode(ByVal New_PaletteMode As Integer)
    UserControl.PaletteMode() = New_PaletteMode
    PropertyChanged "PaletteMode"
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UserControl,UserControl,-1,Palette
Public Property Get Palette() As Picture
Attribute Palette.VB_Description = "返回/設(shè)置一個(gè)圖象，包含了當(dāng) PaletteMode 被設(shè)置為 Custom 時(shí)用于調(diào)色板的對(duì)象。"
    Set Palette = UserControl.Palette
End Property

Public Property Set Palette(ByVal New_Palette As Picture)
    Set UserControl.Palette = New_Palette
    PropertyChanged "Palette"
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UserControl,UserControl,-1,PaintPicture
Public Sub PaintPicture(ByVal Picture As Picture, ByVal X1 As Single, ByVal Y1 As Single, Optional ByVal Width1 As Variant, Optional ByVal Height1 As Variant, Optional ByVal X2 As Variant, Optional ByVal Y2 As Variant, Optional ByVal Width2 As Variant, Optional ByVal Height2 As Variant, Optional ByVal Opcode As Variant)
Attribute PaintPicture.VB_Description = "畫 Form、PictureBox、或 Printer 對(duì)象上的圖形文件的內(nèi)容。"
    UserControl.PaintPicture Picture, X1, Y1, Width1, Height1, X2, Y2, Width2, Height2, Opcode
End Sub

Private Sub UserControl_Paint()
    RaiseEvent Paint
End Sub

Private Sub UsrCtrCombo_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    RaiseEvent OLEStartDrag(Data, AllowedEffects)
End Sub

Private Sub UsrCtrCombo_OLESetData(Data As DataObject, DataFormat As Integer)
    RaiseEvent OLESetData(Data, DataFormat)
End Sub

Private Sub UsrCtrCombo_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
    RaiseEvent OLEGiveFeedback(Effect, DefaultCursors)
End Sub

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,OLEDropMode
Public Property Get OLEDropMode() As Integer
Attribute OLEDropMode.VB_Description = "返回/設(shè)置該對(duì)象是否能作為一個(gè) OLE 放下目標(biāo)。"
    OLEDropMode = UsrCtrCombo.OLEDropMode
End Property

Public Property Let OLEDropMode(ByVal New_OLEDropMode As Integer)
    UsrCtrCombo.OLEDropMode() = New_OLEDropMode
    PropertyChanged "OLEDropMode"
End Property

Private Sub UsrCtrCombo_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
    RaiseEvent OLEDragOver(Data, Effect, Button, Shift, X, Y, State)
End Sub

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,OLEDragMode
Public Property Get OLEDragMode() As Integer
Attribute OLEDragMode.VB_Description = "返回/設(shè)置該對(duì)象是否能作為 OLE 拖/放源，以及該進(jìn)程是自動(dòng)啟動(dòng)，還是在程序控制下啟動(dòng)。"
    OLEDragMode = UsrCtrCombo.OLEDragMode
End Property

Public Property Let OLEDragMode(ByVal New_OLEDragMode As Integer)
    UsrCtrCombo.OLEDragMode() = New_OLEDragMode
    PropertyChanged "OLEDragMode"
End Property

Private Sub UsrCtrCombo_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent OLEDragDrop(Data, Effect, Button, Shift, X, Y)
End Sub

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,OLEDrag
Public Sub OLEDrag()
Attribute OLEDrag.VB_Description = "以給定控件作為源，啟動(dòng)一個(gè) OLE 拖/放事件。"
    UsrCtrCombo.OLEDrag
End Sub

Private Sub UsrCtrCombo_OLECompleteDrag(Effect As Long)
    RaiseEvent OLECompleteDrag(Effect)
End Sub

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,NewIndex
Public Property Get NewIndex() As Integer
Attribute NewIndex.VB_Description = "返回添加到控件中的最近一個(gè)項(xiàng)目的索引。"
    NewIndex = UsrCtrCombo.NewIndex
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,MousePointer
Public Property Get MousePointer() As Integer
Attribute MousePointer.VB_Description = "返回/設(shè)置當(dāng)鼠標(biāo)經(jīng)過對(duì)象某一部分時(shí)鼠標(biāo)的指針類型。"
    MousePointer = UsrCtrCombo.MousePointer
End Property

Public Property Let MousePointer(ByVal New_MousePointer As Integer)
    UsrCtrCombo.MousePointer() = New_MousePointer
    PropertyChanged "MousePointer"
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,MouseIcon
Public Property Get MouseIcon() As Picture
Attribute MouseIcon.VB_Description = "設(shè)置一個(gè)自定義鼠標(biāo)圖標(biāo)。"
    Set MouseIcon = UsrCtrCombo.MouseIcon
End Property

Public Property Set MouseIcon(ByVal New_MouseIcon As Picture)
    Set UsrCtrCombo.MouseIcon = New_MouseIcon
    PropertyChanged "MouseIcon"
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UserControl,UserControl,-1,MaskPicture
Public Property Get MaskPicture() As Picture
Attribute MaskPicture.VB_Description = "返回/設(shè)置指定當(dāng) BackStyle 為 0 (transparent) 時(shí)，可用鼠標(biāo)電中或可畫區(qū)域中的圖片。"
    Set MaskPicture = UserControl.MaskPicture
End Property

Public Property Set MaskPicture(ByVal New_MaskPicture As Picture)
    Set UserControl.MaskPicture = New_MaskPicture
    PropertyChanged "MaskPicture"
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UserControl,UserControl,-1,MaskColor
Public Property Get MaskColor() As Long
Attribute MaskColor.VB_Description = "返回/設(shè)置指定在 MaskPicture 的透明區(qū)域的顏色。"
    MaskColor = UserControl.MaskColor
End Property

Public Property Let MaskColor(ByVal New_MaskColor As Long)
    UserControl.MaskColor() = New_MaskColor
    PropertyChanged "MaskColor"
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,Locked
Public Property Get Locked() As Boolean
Attribute Locked.VB_Description = "決定控件是否可編輯。"
    Locked = UsrCtrCombo.Locked
End Property

Public Property Let Locked(ByVal New_Locked As Boolean)
    UsrCtrCombo.Locked() = New_Locked
    PropertyChanged "Locked"
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,ListIndex
Public Property Get ListIndex() As Integer
Attribute ListIndex.VB_Description = "返回/設(shè)置該控件中當(dāng)前選定項(xiàng)目的索引。"
    ListIndex = UsrCtrCombo.ListIndex
End Property

Public Property Let ListIndex(ByVal New_ListIndex As Integer)
    UsrCtrCombo.ListIndex() = New_ListIndex
    PropertyChanged "ListIndex"
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,ListCount
Public Property Get ListCount() As Integer
Attribute ListCount.VB_Description = "返回控件的列表部分中的項(xiàng)目數(shù)。"
    ListCount = UsrCtrCombo.ListCount
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,List
Public Property Get List(ByVal Index As Integer) As String
Attribute List.VB_Description = "返回/設(shè)置控件的列表部分中包含的項(xiàng)。"
    List = UsrCtrCombo.List(Index)
End Property

Public Property Let List(ByVal Index As Integer, ByVal New_List As String)
    UsrCtrCombo.List(Index) = New_List
    PropertyChanged "List"
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UserControl,UserControl,-1,Line
Public Sub Line(ByVal Flags As Integer, ByVal X1 As Single, ByVal Y1 As Single, ByVal X2 As Single, ByVal Y2 As Single, ByVal Color As Long)
Attribute Line.VB_Description = "在對(duì)象上畫直線或矩形。"
    'UserControl.Line Flags,X1,Y1,X2,Y2,Color
End Sub

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,ItemData
Public Property Get ItemData(ByVal Index As Integer) As Long
Attribute ItemData.VB_Description = "返回/設(shè)置 ComboBox 或 ListBox 控件中每一個(gè)項(xiàng)的指定號(hào)。"
    ItemData = UsrCtrCombo.ItemData(Index)
End Property

Public Property Let ItemData(ByVal Index As Integer, ByVal New_ItemData As Long)
    UsrCtrCombo.ItemData(Index) = New_ItemData
    PropertyChanged "ItemData"
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,IntegralHeight
Public Property Get IntegralHeight() As Boolean
Attribute IntegralHeight.VB_Description = "返回/設(shè)置一個(gè)值，指出控件是否顯示部分項(xiàng)目。"
    IntegralHeight = UsrCtrCombo.IntegralHeight
End Property

Private Sub UserControl_InitProperties()
    RaiseEvent InitProperties
    m_AutoSelect = m_def_AutoSelect
End Sub

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UserControl,UserControl,-1,Image
Public Property Get Image() As Picture
Attribute Image.VB_Description = "返回一個(gè) Microsoft Windows 提供的句柄到一個(gè)持久性位圖。"
    Set Image = UserControl.Image
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UserControl,UserControl,-1,HyperLink
Public Property Get HyperLink() As HyperLink
Attribute HyperLink.VB_Description = "返回一個(gè)用于瀏覽器樣式定位的 Hyperlink 對(duì)象。"
    Set HyperLink = UserControl.HyperLink
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,hWnd
Public Property Get hWnd() As Long
Attribute hWnd.VB_Description = "返回一個(gè)句柄到(from Microsoft Windows)一個(gè)對(duì)象的窗口。"
    hWnd = UsrCtrCombo.hWnd
End Property

Private Sub UserControl_HitTest(X As Single, Y As Single, HitResult As Integer)
    RaiseEvent HitTest(X, Y, HitResult)
End Sub

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UserControl,UserControl,-1,HitBehavior
Public Property Get HitBehavior() As Integer
Attribute HitBehavior.VB_Description = "指出無窗口 UserControl 使用哪種自動(dòng)擊點(diǎn)檢測。"
    HitBehavior = UserControl.HitBehavior
End Property

Public Property Let HitBehavior(ByVal New_HitBehavior As Integer)
    UserControl.HitBehavior() = New_HitBehavior
    PropertyChanged "HitBehavior"
End Property

Private Sub UserControl_Hide()
    RaiseEvent Hide
End Sub

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UserControl,UserControl,-1,hDC
Public Property Get hDC() As Long
Attribute hDC.VB_Description = "返回一個(gè)句柄(從 Microsoft Windows)到對(duì)象的設(shè)備上下文。"
    hDC = UserControl.hDC
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UserControl,UserControl,-1,HasDC
Public Property Get HasDC() As Boolean
Attribute HasDC.VB_Description = "決定是否為該控件分配了唯一的顯示上下文。"
    HasDC = UserControl.HasDC
End Property

Private Sub UserControl_GetDataMember(DataMember As String, Data As Object)
    RaiseEvent GetDataMember(DataMember, Data)
End Sub

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,FontUnderline
Public Property Get FontUnderline() As Boolean
Attribute FontUnderline.VB_Description = "返回/設(shè)置下劃線字體樣式。"
    FontUnderline = UsrCtrCombo.FontUnderline
End Property

Public Property Let FontUnderline(ByVal New_FontUnderline As Boolean)
    UsrCtrCombo.FontUnderline() = New_FontUnderline
    PropertyChanged "FontUnderline"
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UserControl,UserControl,-1,FontTransparent
Public Property Get FontTransparent() As Boolean
Attribute FontTransparent.VB_Description = "返回/設(shè)置一個(gè)值，決定是否顯示窗體、打印機(jī)或 PictureBox 上的背景文本/圖形。"
    FontTransparent = UserControl.FontTransparent
End Property

Public Property Let FontTransparent(ByVal New_FontTransparent As Boolean)
    UserControl.FontTransparent() = New_FontTransparent
    PropertyChanged "FontTransparent"
End Property

'注意！不要?jiǎng)h除或修改下列被注釋的行！
'MappingInfo=UsrCtrCombo,UsrCtrCombo,-1,FontStrikethru