vb6.0里“Public”语句如何使用？

public是声明公共变量，可以在多个窗体中共用的，但一般都放到模块中声明公共变量
比如
'Form1中
Public A As Integer
Private Sub Form_Load()
A = 10
End Sub
'Form2中
Private Sub Form_Click()
Print Form1A
End sub
'结果，在Form2中显示 10

创建3个按钮，用默认名字命名\x0d\创建一个label控件，名称为label1\x0d\创建一个timer控件，名称为timer1\x0d\\x0d\复制下列代码运行即可\x0d\\x0d\Private a As Long\x0d\\x0d\Private Sub Command1_Click()\x0d\Timer1Enabled = True\x0d\End Sub\x0d\\x0d\Private Sub Command2_Click()\x0d\Timer1Enabled = False\x0d\End Sub\x0d\\x0d\Private Sub Command3_Click()\x0d\a = 0\x0d\End Sub\x0d\\x0d\Private Sub Form_Load()\x0d\Command1Caption = "启动"\x0d\Command2Caption = "停止"\x0d\Command3Caption = "重新开始"\x0d\Label1Caption = ""\x0d\Timer1Enabled = 0\x0d\Timer1Interval = 1000 '设定周期为1秒\x0d\End Sub\x0d\\x0d\Private Sub Timer1_Timer()\x0d\a = a + 1\x0d\Label1Caption = a\x0d\End Sub

VB60
全称为VisualBasic
60，是微软公司推出的可视化编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具。如果你是一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择VB
60没错的。即使考虑到VB程序本身编译和运行效率较低的不足(嘻嘻速度现在不是问题吧)，单是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款优秀的编程工具，是初学者的首选。
也许你会问，我以前没学过任何一种语言，我能快速上手吗？别担心，没问题VB的语法的和QBASIB语言是基本相同的，也就是说它的语法是最容易被初学者所接受的。另外VB提供的是可视化的开发环境，我们可以象搭积木一样构建出程序的界面，而且VB提供了丰富的控件组，省去了我们自己写代码实现这些效果的麻烦，这样我们就能把更多的精力放在程序功能的实现上，所以VB学起来简单，用起来方便。
接着看看VB语言的前景，在目前各种编程语言共存的时代，VB会不会落伍呢？当然不会了，在我写这篇文章的同时，微软已经透露了
VB70将完全面向对象的消息，可以肯定下一代VB的功能一定会强大很多，我们这些所谓的
VB
程序员总算可以放心了，VB不会落后于时代，毕竟它是使用人数最多的优秀的开发工具。
好了，侃了这么多关于VB的台前幕后，总之是为想学编程的你树立信心，编程一点都不难，只要你决定了开始，就让我们一起踏上愉快的编程之旅吧。
接下来谈谈怎样学习VB，先说说“看实例学VB60”系列教程，它是面向编程初学者的VB入门教程，这个教程的特点是抛开晦涩难懂的概念和语法，不做内容上的堆积和罗列，而是采用了每节一个生动有趣的小例子的形式，每个小例子中会涉及到一个或几个VB编程的知识点(可能是控件，也许会是某个函数或编程小技巧)，使你快速入门。
从对编程一窍不通或从未接触过编程的状态，通过学习能够对VB60的编程环境比较熟悉，掌握VB开发界面的使用方法；对VB语言的基本语法大致了解，知道常见的语句的意义；学习VB常用控件的使用方法，并能将它们灵活运用到应用程序中；能开发简单的VB程序。到那时你已经能够继续深入的学习VB编程，可以继续参与到程序设计栏目其他版块的学习中去，嘻嘻，目标就是这样啦。
然后谈谈学习编程的方法，万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。我们每学一点，就赶快把它用到实际的程序中去，自己多学多用多实践，水平才能不断提高，这就是“学以致用”。
另外，编程涉及到很多的知识，象 *** 作系统的、软件工程的、硬件系统的以及编程思想等各个方面，这就需要我们多看看这方面的资料，扩充自己的知识面。
还有如果学习过程中遇到了什么问题，或者有什么好的心得，你可以到洪恩的“网上交流”的“编程技术”版去提问求助或是发表文章，那里有许多编程高手可以为你答疑，还有许多同样的初学者一起交流。
“求知无限”是网上学习的特点，如果你觉得自己能够更深的学习VB或是其他编程的知识时，“程序设计”栏目的其他版块将是理想的去处，希望我们能在这样的学习环境中不断进步。
教程分为三个大的部分，它们是由浅入深的一个系列，分别是：
一、熟悉一下VB60的编程环境
二、学习VB常用控件的使用方法
三、试着开发简单的VB应用程序

Form1ControlsAdd "VBCommandButton", "cmdObj1", Frame1
在Frame1上画一个按钮
Add 方法（Controls 集合）示例
Private Sub Form_Load()
Form1ControlsAdd "VBCommandButton", "cmdObj1", Frame1
With Form1!cmdObj1
Visible = True
Width = 2000
Caption = "Dynamic Button"
End With
End Sub
注意 上面的代码例子使用 ! 作为一个语法要素。您也可以使用标准集合语法如 Form1Controls("cmdObj1") 来引用该控件。
第二个例子使用 WithEvents 关键字声明一个 CommandButton 类型的对象变量，允许您编程该控件的事件。对象变量被设置为由 Add 方法返回的引用。要试验该例，把它的代码粘贴到声明部分并且运行该工程。
Option Explicit
Private WithEvents btnObj As CommandButton
Private Sub btnObj_Click()
MsgBox "This is a dynamically added button"
End Sub
Private Sub Form_Load()
Set btnObj = ControlsAdd("VBCommandButton", "btnObj")
With btnObj
Visible = True
Width = 2000
Caption = "Hello"
Top = 1000
Left = 1000
End With
End Sub
第三个例子添加一个非引用控件到 Controls 集合。然而要编程这样一个控件的事件，必须声明一个 VBControlExtender 类型的对象变量，并把由这个方法返回的引用设置到该对象。然后使用 ObjectEvent 事件编程该控件的事件。
Option Explicit
Dim ctlExtender As VBControlExtender
Private Sub Form_Load()
Set ctlExtender = ControlsAdd("Project1UserControl1", "MyControl")
With ctlExtender
Visible = True
Top = 1000
Left = 1000
End With
End Sub
Private Sub extObj_ObjectEvent(Info As EventInfo)
'使用 Select Case 编程该控件事件。
Select Case InfoName
Case "UserName"
'检查用户名值。
MsgBox Info EventParameters("UserName")Value
'现在显示其他情况
Case Else '未知事件
'这里处理未知事件。
End Select
End Sub

---