请用一个简单的例子讲解一下vb的类.

既然你是个初学的人 给你点建议:
程序开发心得 请不要做浮躁的人

请不要做浮躁的人，如果你连下边一点内容都没有时间及心情看下去的话，建议你还是不要学习VB了，还是去做你喜欢的事去吧～

请不要做浮躁的人

1.不要看到别人的回复第一句话就说：给个代码吧！你应该想想为什么。当你自己想出来再参考别人的提示，你就知道自己和别人思路的差异。
2.初学者请不要看太多太多的书那会误人子弟的，先找本系统的学，很多人用了很久 都是只对部分功能熟悉而已，不系统还是不够的。
3.看帮助,不要因为很难而自己是初学者所以就不看；帮助永远是最好的参考手册， 虽然帮助的文字有时候很难看懂，总觉得不够直观。
4.不要被对象、属性、方法等词汇所迷惑；最根本的是先了解最基础知识。
5.不要放过任何一个看上去很简单的小问题--他们往往并不那么简单，或者可以引伸 出很多知识点；不会举一反三你就永远学不会。
6.知道一点东西，并不能说明你会写脚本，脚本是需要经验积累的。
7.学脚本并不难，JSP、ASP、PHP等等也不过如此--难的是长期坚持实践和不遗余力的博览 群书；
8.看再多的书是学不全脚本的，要多实践
9.把时髦的技术挂在嘴边，还不如把过时的技术记在心里；
10.学习脚本最好的方法之一就是多练习；
11.在任何时刻都不要认为自己手中的书已经足够了；
12.看得懂的书，请仔细看；看不懂的书，请硬着头皮看；
13.别指望看第一遍书就能记住和掌握什么——请看第二遍、第三遍；
14.请把书上的例子亲手到电脑上实践，即使配套光盘中有源文件；
15.把在书中看到的有意义的例子扩充；并将其切实的运用到自己的工作中；
16.不要漏掉书中任何一个练习——请全部做完并记录下思路；
17.当你用脚本到一半却发现自己用的方法很拙劣时，请不要马上停手；请尽快将余下的部分粗略的完成以保证这个代码的完整性，然后分析自己的错误并重新编写和工
作。
18.别心急，写脚本确实不容易；水平是在不断的实践中完善和发展的；
19.每学到一个脚本难点的时候，尝试着对别人讲解这个知识点并让他理解----你能 讲清楚才说明你真的理解了；
20.记录下在和别人交流时发现的自己忽视或不理解的知识点；
21.保存好你做过的所有的源文件----那是你最好的积累之一；
22.对于网络，还是希望大家能多利用一下，很多问题不是非要到论坛来问的，首先你要学会自己找答案，比如google、百度都是很好的搜索引擎，你只要输入关键字就能找到很多相关资料，别老是等待别人给你希望，看的出你平时一定也很懒！
23，到一个论坛，你学会去看以前的帖子，不要什么都不看就发帖子问，也许你的问题早就有人问过了，你再问，别人已经不想再重复了，做为初学者，谁也不希望自己 的帖子没人回的。
24，虽然不是打击初学者，但是这句话还是要说：论坛论坛，就是大家讨论的地方，如果你总期望有高手总无偿指点你，除非他是你亲戚！！讨论者，起码是水平相当的才有讨论的说法，如果水平真差距太远了，连基本操作都需要别人给解答，谁还跟你讨论呢。能找到很多相关资料，别老是等待别人给你希望，看的出你平时一定也很懒！

浮躁的人容易问：我到底该学什么；----别问，学就对了；
浮躁的人容易问：JS有钱途吗；----建议你去抢银行；
浮躁的人容易说：我要中文版！我英文不行！----不行？学呀！
浮躁的人分两种：只观望而不学的人；只学而不坚持的人；
浮躁的人永远不是一个高手。

繁星点点，跨越银河能否与你相见？
不怕遥远，只盼此刻飞奔到你身边。
往事如烟，魂萦梦牵，增添我心中思念；
纵然追寻万年，今生的情缘不变！

我自己还处于浮躁之中，每当我心情浮躁之时我就会读这篇文章，反醒一下自己：做了哪些事、到底学到了什么……

一、类的创建
类的创建非常简单，在进行代码编写的时候，在“工程”菜单中选择“添加类模块”项目，就可以添加一个空白的类。
类文件一般以.cls作为扩展名保存。
二、类的方法
类的方法类似于动态链接库的接口函数，它能够接受其他窗体代码的指定类型参数，并且传递到类中。一般来说类的方法是能够指定是否有返回值的。它在类中通常是一个public过程。请看下面的代码示例，它使一个密码框拒绝非字母的输入：
（1）类cls的代码(cls为类的名字，请修改，后面要用到)；
Option Explicit'变量检查
Private WithEvents mytxt As TextBox
'本类中的方法接受和控制一个text密码框
Dim isNUM As Boolean
'类的模块级变量
Public Sub Attach(itTEXT As TextBox)
'接受外部变量到mytxt中
Set mytxt = itTEXT
End Sub
Private Sub mytxt_KeyUp(KeyCode As Integer, Shift As Integer)
isNUM = (KeyCode >= 65) And (KeyCode <= 90)
'测试密码框的键盘输入是否是英文字母
If isNUM = False Then
Beep
mytxt.Text = ""
'如果输入不是英文字母则响铃并且清空密码框内容
MsgBox "非法字符输入！"
End If
Debug.Print mytxt.Text
'调试输出密码框内容
End Sub
'类的代码结束
三、类的引用
已经编写完成的类可以经过两种格式进行引用，第一种方式：Private（public或者dim) myCLS（指定的类名） As New cls（编写完成的类名）；第二种方式较多用于程序编写风格较“老”的程序员：首先在窗体代码中进行模块级声明——Dim myCLS As cls,然后在具体代码过程中进行具体定义—— Set mycls = New cls。这两种方式的效率和代码的简洁性方面可能会有所差别，但在笔者的编程实践中，并没有什么特别的感觉，不过我较多使用第一种方式，因为它书写起来更加方便。另外，在代码结束的时候，使用 Set myCLS = Nothing来取消类的资源占用是一种非常好的编程习惯。
在窗体form1中(窗体有一个密码框控件text1，passworldchar="*")添加以下代码：
Option Explicit
Private myCLS As New cls
'引用cls
Private Sub Form_Load()
myCLS.Attach Text1
'启动类
End Sub
'在代码结束时记得释放资源
Private Sub Form_Unload(Cancel As Integer)
Set myCLS = Nothing
End
End Sub

类是定义同一类所有对象的变量和方法的蓝图或原型。

《<<<<<<<例：，
可以建立一个定义包含当前档位等实例变量的自行车类。这个类也定义和提供了实例方法（变档、刹车）的实现。 >>>>>>>

实例变量的值由类的每个实例提供。因此，当你创建自行车类以后，必须在使用之前对它进行实例化。当创建类的实例时，就建立了这种类型的一个对象，然后系统为类定义的实例变量分配内存。然后可以调用对象的实例方法实现一些功能。相同类的实例共享相同的实例方法。

除了实例变量和方法，类也可以定义类变量和类方法。可以从类的实例中或者直接从类中访问类变量和方法。类方法只能操作类变量 - 不必访问实例变量或实例方法。

系统在第一次在程序中遇到一个类时为这个类建立它的所有类变量的拷贝 - 这个类的所有实例共享它的类变量。

类和对象

你可能会注意到对象和类的说明很相似。实际上，类和对象之间的差别经常是一些困惑的起源。在现实世界中很明显，类不是它描述的对象 - 自行车的蓝图不是自行车。但是在软件中就有点难区分类和对象。着部分是由于软件对象只是现实世界的电子模型或抽象念。但是也由于很多人用“对象”指类和它们的实例这两者。

类的好处

对象提供了模型化和信息隐藏的好处。类提供了可重用性的好处。自行车制造商一遍一遍地重用相同的蓝图来制造大量的自行车。软件程序员用相同的类，即相同的代码一遍一遍地建立对象。

类是面向对象编程特有的,但VB中的类不支持继承，只有接口进行方法的重写，所以局限性突现.

下面这是一个很简单的例子,在窗体上放一个文本框用于输入数字,一个标签用于显示结果,再放一个按钮.创建的类代码如下:
Public Class xrhigh '创建的类
Public Sub display(ByVal lab As Label, ByVal txt As TextBox)
lab.Text = CStr(high(CInt(txt.Text)))'将文本框中的数阶乘结果返回给标签.
End Sub
Function high(ByVal a As Integer) As Long
Dim b%, c% '计算阶乘
b = 1
For c = 1 To a
b = b * c
Next
Return b
End Function
End Class
在按钮下写入:
Dim x As New xrhigh() '定义一个类的新实例
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CInt(TextBox1.Text) <= 20 Then x.display(Label1, TextBox1) '调用类的方法
End Sub

类，好比一台电脑，主板、硬盘、内存、电源、显卡什么的就是这个类的对象，这些东西实现的功能就是编写的源程序。同样类好比一部车。。。。。