本文叙述了如何在VB中实现控件的IobjectSafety接口，
以标志该控件是脚本安全和初始化安全的。
VB控件默认的处理方式是在注册表中注册组件类来标识其安全性，
但实现IobjectSafety接口是更好的方法。
本文包括了实现过程中所需的所有代码。

1、将以下文本复制到记事本, 并作为 objsafe.odl 项目文件夹以保存文件：
                    [

VB中用于把信息写入注册表和从注册表读取数据的两个函数：Getsetting、SaveSetting介绍，这两个函数是程序注册信息保存在注册表HKEY_CURRENT_USER---->SOFTWARTE----->VB AND VBA PROGRAM SETTING 下，可以被手动修改。

一、GetSetting

从 Windows 注册表中的应用程序项目返回注册表项设置值。

语法

GetSetting(appname, section, key[, default])

GetSetting 函数的语法具有下列命名参数：

部分

'On Error Resume Next
'=== ① === 设置注册表5大根键
Const HKEY_CLASSES_ROOT   = &H80000000  'HKCR
Const HKEY_CURRENT_USER   = &H80000001  'HKCU
Const HKEY_LOCAL_MACHINE  = &H80000002  'HKLM
Const HKEY_Users          = &H80000003  'HKU
Const HKEY_Current_Config = &H80000005  'HKCC

'=== ② === 设置注册表键值类型

VB　ListView控件适用方法

ListView控件

在工具箱上击鼠标右键，选择快捷菜单的Components（部件）项，在控件列表中选择Microsoft Windows Common Controls 5.0控件(Comctl32.ocx)，这个控件中包括ListView、TreeView等几个Windows 95特有的控件。

如果使用的是Visual Basic 6.0，则应该选择Microsoft Windows Common Controls 6.0控件。

将 ColumnHeader 对象添加到 ListView 控件的 ColumnHeaders 集合中。