type 可选的。常量的数据类型；可以是VB变量的各种类型。所声明的每个常量都要使用一个单独的As类型子句。 必需的。文字，其它常量，或由除Is之外的任意的算术操作符和逻辑操作符所构成的任意组合。 expression 二、说明：
对于程序中多次出现的数值、文字等最好使用常量，这样在程序运行时不易出错。常量可以使程序更具可读性，以及易于修改。
在缺省情况下常量是局部的。在Sub、Function或Property过程中声明的常量都是该过程的局部常量，在类模块声明的常量也是局部的。在标准模块中，可以用Public关键字来声明常量为全局的。
可以在一行中声明若干个常量，使用逗号将每个常量赋值分开。用这种方法声明常量时，如果使用了Public或Private关键字，则该关键字对该行中所有常量都有效。 三、应用举例：
该示例使用Const语句来声明常量。Public常量在标准模块的通用部分声明，而不是在类模块中声明。Private常量可以在任何模块类型的通用部分声明。 Const Pai = 3.14 '缺省情况下常量是局部的。 Public Const MyStr = \你好\声明全局常量。
Private Const vbGrayed As Integer = 2 '声明局部的整数常量。
Const MyStr = \你好\在一行中声明多个常量。
Date语句
描述：设置当前系统日期。 一、语法： Date=date
Date的格式为#mm/dd/yyyy#，日期两边用#，不能用双引号(“”)。对于运行Microsoft Windows98的系统，要设置的日期必须介于1980年1月1日与2099年12月31日之间。对于运行Microsoft WindowsNT的系统，日期必须介于公元1980年1月1日到2079年12月31日之间。 二、应用举例：
本示例使用Date语句来设置系统日期。在开发环境中，日期原义会根据系统的地区设置，以短式日期格式显示。建立一标准工程，在窗体上添加一命令按钮，将下面的程序粘贴过去。
Private Sub Command1_Click()
Date = #11/6/2007# '设置系统日期。 End Sub
单击命令按钮，这时系统日期将改变到你指定的日期。
Declare语句
描述：用于在模块或窗体中声明对动态链接库(DLL)中外部过程的引用，在引用API函数时经常用到。 一、语法： 语法1
[Public|Private]Declare Sub name Lib\ [([arglist])] 语法2
[Public|Private]Declare Function name Lib\ [([arglist])][As type]
Declare语句的语法包含下面部分： 部分 Public 描述 可选的。用于声明其引用是全局的（公用的），也就是说该引用的过程在整个工程中都可以使用。Public只能在模块中声明。 可选的。用于声明其引用是局部的，也就是说只能在该声明所在的模块或窗体中使用。 Private Sub或可选的（但二者必须选其一）。Sub表示该过程没有返回值；Function表示该Function 过程会返回一个可用于表达式的值。 Name Lib Libname 必需的。为合法的过程名。 必需的。Declare的子句。 必需的。所声明过程的动态链接库名或代码资源名。 可选的。表示将被调用的过程在动态链接库(DLL)中还有另外的名称。当动态链接库的过程与同一范围内的公用变量、常数或任何其它过程的名称相同时，可以使用这个参数。 可选的。动态链接库或代码资源中的过程名。如果首字符不是数字符号(#)，则aliasname是动态链接库中该过程的入口处的名称。如果首字符是(#)，则随后的字符必须指定该过程的入口处的顺序号。 可选的。代表调用该过程时需要传递的参数列表。 可选的。Function过程返回值的数据类型；可以是VB变量的各种类型、用户定义类型或对象类型，不支持定长的String。 Alias Aliasname Arglist Type arglist参数的语法以及语法各个部分如下： [Optional][ByVal|ByRef][ParamArray]varname[()][As type] 部分 Optional 描述 可选的。表示参数不是必需的。如果使用该选项，则arglist中的后续参数都必需是可选的，而且必须都使用Optional关键字声明。 ByVal ByRef 可选的。表示该参数按值传递。 可选的。表示该参数按地址传递，是缺省选项。 可选的。只用于arglist的最后一个参数，表示最后的参数是一个Variant元素ParamArray 的Optional的数组。使用ParamArray关键字可以提供任意数目的参数。ParamArray关键字不能与ByVal、ByRef或Optional一起使用。 Varname () Type 必需的。代表传给该过程的参数的变量名；遵循标准的变量命名约定。 对数组变量是必需的。指明varname是一个数组。 可选的。传递给该过程的参数的数据类型；可以是VB变量的各种类型、用户定义类型或对象类型，不支持定长的String。 二、说明：
如果引用API函数，可以从API Text Viewer直接将声明复制过来，方法是在程序菜单里选择Microsoft Visual Studio 6.0——Microsoft Visual Studio 6.0 Tools——API Text Viewer，在API Viewer的File菜单里点击Load Text File，打开WIN32API。选择你需要的API函数，添加到Selectde Items里，但要注意根据需要选择Public或Private，然后单击复制。
对Function过程而言，过程的数据类型决定其返回值的数据类型。可以在arglist之后使用As子句来指定函数返回值的数据类型。在arglist中，可以使用As子句来指定任何传给该过程的参数的数据类型。
注意：在Declare语句的参数表中不能使用定长的字符串；只能用变长的字符串。 三、应用举例：
该示例演示如何在使用Declare语句来声明API函数，使某一窗体保持在前面。建立一标准工程，将窗体改名为FrmMain。在窗体上添加一命令按钮，将下面的程序粘贴过去。 Private Sub Command1_Click() FrmFore.Show '显示第二个窗体 End Sub
在工程上添加一个窗体，改名为FrmFore。在窗体上添加两个命令按钮，将下面的程序粘贴过去。 Option Explicit
Private Declare Function SetWindowPos Lib \(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long '声明API函数 Private Sub Command1_Click() Dim rtn
rtn = SetWindowPos(FrmFore.hwnd, -1, 0, 0, 0, 0, 3) Me.Caption = \窗体在前\End Sub
Private Sub Command2_Click() Dim rtn
rtn = SetWindowPos(FrmFore.hwnd, -2, 0, 0, 0, 0, 3) Me.Caption = \活动窗体\End Sub
在工程(Project)菜单打开属性对话框，在对话框中的Starup Object选择FrmMain，然后
点击确定。
运行程序时，出现的是第一个窗体，单击显示辅窗体，第二个窗体出现，位于第一个窗体前面。我们分三步来演示这个程序：
一、单击第一个窗体，则第一个窗体到第二个窗体的前面，再单击第二个窗体，第二个窗体又到了前面。
二、这时单击第二个窗体的命令按钮1，然后单击第一个窗体，那么我们可以看到，第一个窗体只被激活，但第二个窗体始终在第一个窗体的前面。
三、最后单击第二个窗体的命令按钮2，此时的情况如同第一步。
Deftype语句
描述：在模块或窗体，为变量和传给过程的参数，设置缺省数据类型，以及为其名称以指定的字符开头的Function和PropertyGet过程，设置返回值类型。 一、语法：
DefType letterrange[,letterrange]
所需的letterrange参数遵循下述语法： letter1[-letter2]
letter1和letter2参数指定设置缺省数据类型的名称范围。每个参数都是指变量，参数和Function过程，或PropertyGet过程名称的首字母，且参数可以是字母表中的任意字母。letterrange中不区分字母的大小写。 二、说明：
Type可以换成下列缩写：
缩写 Bool Byte Int Lng Cur Sng Dbl Date Str Obj Var 数据类型 布尔型 字节型 整型（Integer） 长整型（Long） 货币型（Currency） 单精度型（Single） 双精度型（Double） 日期型（Date） 字符串型（String） Object 变体型（Variant） 语句的名字就确定相应的数据类型： 例如整型：DefInt
Deftype语句只能在模块或窗体使用（即不能在过程内使用）。Deftype语句只在使用该语句的模块或窗体中有效。而其它模块或窗体不受影响。如果不用Deftype语句显式地声明，则所有变量、参数、Function过程、以及PropertyGet过程的缺省数据类型都是Variant。 对于用Deftype语句声明的变量等，可以使用Dim语句重新声明，覆盖这种缺省数据类型。
三、应用举例：
该示例演示了Deftype语句的用法，来设置那些名称是以指定字符开头的变量。建立一标准工程，在窗体上添加一命令按钮，将下面的程序粘贴过去。
DefInt A-K'将名称以A至K开头变量的缺省数据类型设为Integer类型。 DefStr L-Z'将名称以L至Z开头变量的缺省数据类型设为String类型。 Dim Pai As Double '赋给一个Double类型。 Private Sub Form_Activate() Aint = 4
AVar = \错误\导致\错误。 MyString = \你好\
Pai = 3.14 '允许指定为一个Double数。 Text1.Text = Aint
Text2.Text = MyString Text3.Text = Pai End Sub
运行程序，首先提示“Type mismatch”错误，说明A开头的变量已被声明成整型（Integer），不能用字符串赋值。将AVar = \错误\删除，此时Text1.Text显示4，Aint为整型（Integer）；此时Text2.Text显示你好，MyString为字符串型（String）；Pai由于用Dim语句重新声明为双精度型（Double），Text3.Text显示3.14。
DeleteSetting语句
描述：删除指定的Windows注册表的子键。 一、语法：
DeleteSetting appname,section[,key]
DeleteSetting语句的语法包含下面部分： 部分 appname 描述 必需的。字符串表达式，包含要删除注册表项设置(子键)的应用程序或工程的名称。 必需的。字符串表达式，包含要删除注册表项设置(子键)的区域名称。如果只有appname和section，则将指定的区域连同所有有关的注册表子键都删除。 可选。字符串表达式，包含要删除的注册表项设置(子键)。 section key 二、说明：
如果不熟悉注册表，千万不要修改它，否则可能会使系统瘫痪。
如果提供了所有参数，则删除指定的注册表项设置(子键)。如果试图使用不存在的区域或注册表子键上的DeleteSetting语句，则发生一个运行时错误。