13518219792
把变量定义时增加Shared关键字即可.如:
成都创新互联作为成都网站建设公司，专注网站建设公司、网站设计，有关企业网站设计方案、改版、费用等问题，行业涉及LED显示屏等多个领域，已为上千家企业服务，得到了客户的尊重与认可。
Private
Shared
AAA
As
String
Public
Shared
AAA
As
String
......
这样AAA在一个应用程序里就是公用的.
------------------------------------------------------
补充:
不可能没用,我都是这样做的.
该控件使用中,自己看吧:
Public
Class
CMB_MemoryTextBox
Inherits
TextBox
#Region
"
变量定义
"
Private
Shared
p_HisData
As
STRU_DATA
'用数据表保存所有控件的历史记录
Private
Shared
p_FileName
As
String
'保存历史记录的文件名
......
textbox1.enabled=false
就行啊，不像MFC那样为控件分配变量的，直接是 控件.属性=表达式
在.NET中，对象和结构还是有些不同的，定义方式也是其中之一。
像整型、字符串和一些数值类型都属于结构。结构只需要这样定义就可以了：
Dim str As String
系统自动分配内存，然后就可以对它进行访问了。
如果像这样声明普通类：
Dim cla As Class
此时直接访问cla类成员会引发一个null异常。因为你仅仅声明了cla的类型（cla是Class类型的），而内存中没有一个真正的对象（类的实例）。如果你需要一个实例，就需要用New关键字，例如：
Dim cla As New Class("some words")
这时系统会建立一个Class对象，并将cla指向这个对象。这样就完成了一次实例化。这时就可以直接访问cla的成员了。
在实例化时，系统会调用对象的New函数，即构造函数。后面括号里的内容并不是对象的属性，而是要传递给这个构造函数的参数。至于对象的构造函数是否需要参数、需要多少参数以、参数的类型及重载情况等，取决于要实例化的类型。
上面的Class只是例子，代换成实际的类即可。
mytest1是继承自什么类，通常应该继承自UerControl，虽然你这样也能编译通过，但实际上没有任何意义。所以你先改了再说。继承之后，编译，工具箱就会多这么个控件，拖动到Form1上，这样按钮下就不用再new了。然后你再来问。
