把变量定义时增加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
'保存历史记录的文件名
......
假设你的listview的名称为listview1,变量为a(3)
代码为
for i=1 to listview1.ListItems.count
k=0
if listview1.ListItems(i).Checked=True then
k=k+1
a(k)=listview1.ListItems(i).SubItems(1)
end f
next
直接
你在代码中的DataGridView = DataGridView1
不过，这样不好的是，更改你在代码中的DataGridView，窗体上的DataGridView1也会更改，建议还是一个一个写。
教你一个办法，打开Form1.Designer.vb，把DateGridView1那里的代码（用查找找' DateGridView1）全部复制下来，再把名称改掉就可以了，也相当于复制啦
