机房之设置管理员，操作员和一般用户可见的权限

机房收费系统中：一般用户只可以看见一般用户的内容，操作员可以看见操作员和一般用户的内容，管理员权限最大，可以看见三者
所以在设置用户登录的时候需要对他们可以看见的权限进行限制，在设置用户权限的时候用到了select case 语句，下面是代码实现过程：

通过设置他们的可见性来实现权限的设置

下面介绍一下select case语句的用法
在select case 语句中可以使用关系运算符>,<,=等关系运算符，需要用到关键字 IS和TO

Private Sub Command1_Click()
    Dim age As Integer
    age = Text1.Text
    Select Case age
    Case Is < 15
        Print "小朋友，你好！"
    Case 15 To 20
        Print "学生朋友们，好好学习，天天向上！"
    Case 21
        Print "和我一样年轻！"
    Case Is > 100
        Print "祝你长生不老！"
    End Select
End Sub

case后面的表达式有下列三种情况：
1.case Is < 15
2.case 15 to 20
3.case 21

Form窗体的resize 事件
当窗体的大小发生改变的时候，使控件的大小也发生改变
下列代码使用了一个image控件，使image图片框中图片的大小和窗体大小一样
前两行代码删除也并不影响效果

Private Sub Form_Resize()
   Image1.Left = 0
   Image1.Top = 0
   Image1.Height = Me.ScaleHeight
   Image1.Width = Me.ScaleWidth
End Sub

Exit sub和end和unload me 的区别
Unlaod me 卸载当前窗体，当卸载完最后一个窗体的时候，整个程序退出
End 强制退出当前程序
End sub 结束一个过程=结束战斗
Exit sub 中途退出一个过程=逃兵/中途跳伞