把变量定义时增加Shared关键字即可.如:
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名申请、虚拟空间、营销软件、网站建设、浮山网站维护、网站推广。
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
'保存历史记录的文件名
......
加个模块，定义公共变量2个窗体都可以对数据库进行读写，每次读写之前先刷新一次，保证数据最新就行了。
VB.NET的特点：
1.真正成为面向对象以及支持继承性的语言。
2.窗体设计器支持可视化继承，并且包含了许多新的特性，比如自动改变窗体大小、资源本地化支持、数据类工具内在支持XML数据。
3.直接建立在.NET的框架结构上，因此开发人员可以充分利用所有.NET平台特性，也可以与其他的.NET语言交互。
4.为Windows应用程序提供了XCOPY部署，开发者不再需要为DLL的版本问题担忧。
试试下面的：
Public Class Form1
Public i As Boolean = False
Delegate Sub MySubDelegate()
Private Sub F()
Label1.Text = (Int(Label1.Text) + 1).ToString
Label1.Text = (Int(Label1.Text) + 2).ToString
End Sub
Private Sub setA()
Dim msd As MySubDelegate = AddressOf F
Me.Invoke(msd)
i = True
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim t1 As Threading.Thread = New Threading.Thread(AddressOf setA)
t1.Start()
Do
Application.DoEvents() '关键
If i = True Then
Exit Do
End If
Loop
End Sub
End Class
您仅仅声明了一个变量，变量在未被赋值时，它指向一个空的地址，所以，它没有被实例化。您给它赋一个值，它就指向您定义的值，就行了。
public module module1
Public i As Integer = 365
end module
