经常有网友询问如何免费使用Anole控件，其实方法很简单，只要您使用代码动态建立控件就可以不弹出注册对话框了。动态创建控件主方法与ＶＢ的标准方法一致，这在ＭＳＤＮ中也有相应的说明。需要指出的是，这不是一个ＢＵＧ，而是作者故意留下的一个后门，以方便学生或自由软件开发者。
　　下面我通过一个例子 给大家演示一下：
　　这个例子演示了如何动态建立 ComboBox 控件，并设置 Sort 和 Style 属性。工程需要一个窗体，三个Lable控件。
　　Option Explicit 

　　Private WithEvents acComboBox1 As acComboBox

　　Private Sub acComboBox1_SelectedIndexChanged(ListIdx As Long)
　　　　'' 注意，这里使用了 SelectedIndexChanged 事件
　　　　Label1.Caption = "Text: " & acComboBox1.List(ListIdx)
　　　　Label2.Caption = "Listindex: " & acComboBox1.ListIndex
　　　　Label3.Caption = "ItemData: " & acComboBox1.ItemData(ListIdx)
　　End Sub
　　Private Sub Form_Load()
　　　　'' 动态建立控件
　　　　Set acComboBox1 = Me.Controls.Add("AnoleComboBox.acComboBox", "acComboBox1")
　　　　
　　　　With Me!acComboBox1
　　　　　　.Visible = True
　　　　　　.Width = 3000
　　　　　　.Height = 400
　　　　End With

　　　　Dim i As Long
　　　　For i = 0 To 50
　　　　　　acComboBox1.AddItem "项目" & CStr(i)
　　　　　　acComboBox1.ItemData(acComboBox1.NewIndex) = i
　　　　Next

　　　　'' 注意，下面的属性是在运行时改变的，现在您应该可以看到它的优势了
　　　　acComboBox1.Sorted = True
　　　　acComboBox1.Style = vbComboDropdownList 
　　End Sub

在许多应用程序中，例如许多编辑软件都有UNDO功能。它给我们带来了方便。
那么在VB中能不能实现UNDO功能呢？答案是肯定的。下面介绍一下对于标准的文本
框或组合框实现UNDO功能的示例代码:
Declare Function SendMessage Lib"user"(ByVal hWnd As Integer,
ByVal wMsg As Integer,wParam As Integer,lparam As Any) As Long
Global Const WM_USER = &H400
Global Const EM_UNDO = WM_USER + 23
UndoResult = SendMessage(myControl.hWnd, EM_UNDO, 0, 0)
摘自：网络整理

相关文章参考：


★VB查找替代字符串的函数 
★VB换行气泡提示类 
★VB/VBA通用路径选择对话框 
★ASCII码表0-255完整版 附详细注释 
★VB的KeyAscii
★VB取得TextBox、RichTextBox光标所在的行和列（支持汉字） 
★VB取得TextBox、RichTextBox光标所在的行和列（支持汉字）
★VB如何实现Undo(撤消)功能 
★VB计算文本文件的行数 
★VB获取快捷方式原文件路径 
★微软 Small Basic 简体中文版 已经发布了
★VB操作Excel 非常详细 [网摘] 
★VB如何判断文件正被占用/已被打开 
★VB添加listbox 的水平卷动轴
★VB打开资源管理器并指定文件
★VB根据窗体自动调整窗体内控件大小 注：实用，可以直接引用 
★VB中的指针技术 
★Visual Basic编程常见问题及解答（1） 
★Visual Basic编程常见问题及解答（2） 
★Visual Basic编程常见问题及解答（3） 
★VisualBasic变量、常数和数据类型及过程概述 
★VB6的后期绑定和前期绑定
★VB用户控件制作讲解与实例
★VB制作OCX控件的步骤 
★VB中FSO的调用的两种方法 
★用VB操作EXCEL 
★VB判断文件及目录的存在性 
★VB网站（最新、经典源代码、技术文章、基础知识） 
★VB得到指定文件夹下的文件列表 
★用VB产生随机任意大小文件挤满硬盘 
★VB文件的读写操作 
★VB创建超链接 打开指定网站的几种方法 
★VB 源码 删除重复行程序 函数 
★VB 计算自己程序段所用时间
★VB 获取路径名各部分 （获取文件路径，获取文件名，获取文件扩展名）自编 
★几行VB代码拿下注册表 
★VB 在浏览器中打开指定网址 
★VB窗口置顶 
★vb在 ListBox 之中点击右键弹出菜单 




更多精彩>>>

mschart控件
 这是一个简单的VB6代码段，该代码段使用MSChart控件在VB6.0中显示图表。 
 要使用此示例，请按照以下步骤操作 
 在VB6中创建一个新项目 
 下拉“项目”菜单，然后选择“组件”。 
 选中Microsoft ChartControl 6.0（OLEDB）旁边的复选框，单击“确定”。 
 向现有表单添加一个组合框，一个Mschart控件和一个复选框。 
 将以下代码粘贴到代码窗口中 
Private Sub Form_Load()
'Fill the combo box with different types of chart types.
With Combo1
.AddItem "3D Bar"
.AddItem "2D Bar"
.AddItem "3D Line"
.AddItem "2D LIne"
.AddItem "3D Area"
.AddItem "2D Area"
.AddItem "3D Step"
.AddItem "2D Step"
.AddItem "3D Combination"
.AddItem "2D Combination"
End With
'Declare 2D array to store values for the chart
'Variant ----so that can store both text as well as numbers
Dim X(1 To 7, 1 To 6) As Variant 
X(1, 2) = "Steel"
X(1, 3) = "Aluminium"
X(1, 4) = "Copper"
X(1, 5) = "Buxite"
X(1, 6) = "Lead" 
X(2, 1) = "JAN"
X(2, 2) = 2
X(2, 3) = 3
X(2, 4) = 4
X(2, 5) = 5
X(2, 6) = 6 
X(3, 1) = "FEB"
X(3, 2) = 4
X(3, 3) = 6
X(3, 4) = 3
X(3, 5) = 10
X(3, 6) = 18 
X(4, 1) = "MAR"
X(4, 2) = 1
X(4, 3) = 3
X(4, 4) = 8
X(4, 5) = 7
X(4, 6) = 9 
X(5, 1) = "APR"
X(5, 2) = 4
X(5, 3) = 6
X(5, 4) = 13
X(5, 5) = 10
X(5, 6) = 12 
X(6, 1) = "MAY"
X(6, 2) = 2
X(6, 3) = 9
X(6, 4) = 9
X(6, 5) = 12
X(6, 6) = 7 
X(7, 1) = "JUN"
X(7, 2) = 13
X(7, 3) = 20
X(7, 4) = 5
X(7, 5) = 18
X(7, 6) = 11
'2D array is the data for the chart control.
MSChart1.ChartData = X
'Default chart type is se to 2D bar chart.
MSChart1.chartType = 1 
End Sub 
Private Sub Check1_Click()
If Check1.Value = 1 Then
'Show Legends
MSChart1.ShowLegend = True
Check1.Caption = "&Hide Legends"
Else
'Hide Legends
MSChart1.ShowLegend = False
Check1.Caption = "&Show Legends"
End If
End Sub 
Private Sub Combo1_Click()
'To change the chart type at run time.
MSChart1.chartType = Combo1.ListIndex
End Sub
注意：-上面的示例代码适用于控件的默认名称，如果控件的名称不同，则需要进行相应的修改。 
翻译自: https://bytes.com/topic/visual-basic/insights/701826-drawing-chart-using-mschart-control
mschart控件

 这是一个简单的VB6代码段，该代码段使用MSChart控件在VB6.0中显示图表。 
 要使用此示例，请按照以下步骤操作 
 在VB6中创建一个新项目 
 下拉“项目”菜单，然后选择“组件”。 
 选中Microsoft ChartControl 6.0（OLEDB）旁边的复选框，单击“确定”。 
 向现有表单添加一个组合框，一个Mschart控件和一个复选框。 
 将以下代码粘贴到代码窗口中 
Private Sub Form_Load()
'Fill the combo box with different types of chart types.
With Combo1
.AddItem "3D Bar"
.AddItem "2D Bar"
.AddItem "3D Line"
.AddItem "2D LIne"
.AddItem "3D Area"
.AddItem "2D Area"
.AddItem "3D Step"
.AddItem "2D Step"
.AddItem "3D Combination"
.AddItem "2D Combination"
End With
'Declare 2D array to store values for the chart
'Variant ----so that can store both text as well as numbers
Dim X(1 To 7, 1 To 6) As Variant 
X(1, 2) = "Steel"
X(1, 3) = "Aluminium"
X(1, 4) = "Copper"
X(1, 5) = "Buxite"
X(1, 6) = "Lead" 
X(2, 1) = "JAN"
X(2, 2) = 2
X(2, 3) = 3
X(2, 4) = 4
X(2, 5) = 5
X(2, 6) = 6 
X(3, 1) = "FEB"
X(3, 2) = 4
X(3, 3) = 6
X(3, 4) = 3
X(3, 5) = 10
X(3, 6) = 18 
X(4, 1) = "MAR"
X(4, 2) = 1
X(4, 3) = 3
X(4, 4) = 8
X(4, 5) = 7
X(4, 6) = 9 
X(5, 1) = "APR"
X(5, 2) = 4
X(5, 3) = 6
X(5, 4) = 13
X(5, 5) = 10
X(5, 6) = 12 
X(6, 1) = "MAY"
X(6, 2) = 2
X(6, 3) = 9
X(6, 4) = 9
X(6, 5) = 12
X(6, 6) = 7 
X(7, 1) = "JUN"
X(7, 2) = 13
X(7, 3) = 20
X(7, 4) = 5
X(7, 5) = 18
X(7, 6) = 11
'2D array is the data for the chart control.
MSChart1.ChartData = X
'Default chart type is se to 2D bar chart.
MSChart1.chartType = 1 
End Sub 
Private Sub Check1_Click()
If Check1.Value = 1 Then
'Show Legends
MSChart1.ShowLegend = True
Check1.Caption = "&Hide Legends"
Else
'Hide Legends
MSChart1.ShowLegend = False
Check1.Caption = "&Show Legends"
End If
End Sub 
Private Sub Combo1_Click()
'To change the chart type at run time.
MSChart1.chartType = Combo1.ListIndex
End Sub
注意：-上面的示例代码适用于控件的默认名称，如果控件的名称不同，则需要进行相应的修改。 
From: https://bytes.com/topic/visual-basic/insights/701826-drawing-chart-using-mschart-control