App 对象
App.Path 应用程序路径，不含“\”和程序名，假定程序为：D:\1\2\ak.exe ，则返回 D:\1\2
App.hInstance 返回应用程序句柄。
App.ThreadID 返回应用程序线程ID。
ClipBoard对象
Clipboard.clear 清除剪贴板
Clipboard.SetText Text,Format 把文本放入剪贴板。format格式（TXT,RTF）可省，默认TXT
Clipboard.GetText (format) 从剪贴板返回指定格式的文本，format可省，默认TXT。如果与指定格式不符，将返回空串。
Clipboard.SetData Picture，format 以指定图片的格式把图片放入剪贴板。format可省，剪贴板自适应格式
Clipboard.GetData(format) 以指定格式返回图片，format可省，剪贴板自动适应格式。若与指定格式不符，返回空
Clipboard.GetFormat(format) 判断剪贴板格式。其中format不可省，若与指定格式不符，返回假，否则真。
格式有： vbCFText,vbCFBitmap等
Private Sub Form_Click()
Clipboard.Clear
Clipboard.SetData LoadPicture("D:\s1.jpg")
Form1.Picture = Clipboard.GetData() '返回图片赋值给背景
End Sub
Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText "白话魔法师"
If Clipboard.GetFormat(vbCFText) Then '判断剪贴板中是否为文本格式，为真
Text1.Text = Clipboard.GetText
End If
End Sub
有时可以复制具有焦点的文本，尽管没有对准，同时还有一个选择文本的复制、粘贴等。
用到一个对象Screen，以及ActiveControl。如下：
Private Sub mnuCopy_Click() Clipboard.Clear Clipboard.SetText Screen.ActiveControl.SelText End Sub Private Sub mnuPaste_Click() Screen.ActiveControl.SelText = Clipboard.GetText() End Sub
Screen对象
根据窗体或控件的布局来操作。Screen指整个电脑屏幕。
Screen.ActiveForm 屏幕上当前的窗体(激活）
Screen.ActiveControl 当前获得焦点的控件 （上面例子）
Screen.MouserPointer 鼠标指针（可设置）
Height,Width 屏幕的高宽（以缇为单位）
Screen.Fonts 屏幕可显示的字体或可打印的字体
Debug对象
对于调试用。只有两个方法：
Debug.Print espression 在立即窗体上显示expression
debug.Assert expression 表达式为假时，程序挂起。相当于模式窗体中，让后面的代码静止不执行。
注意： 这只是在设计调试中用。若用在已经编译的应用程序中：
assert也不会出效果，而且后面表达式的值都不会计算
Printer打印对象
把文字或图像发送到打印机上打印。
printer.print str ' 在默认打印机上打印
Printers打印机集合
多个打印机（从0到Printers.count-1）
Set Pointer=Pointers(3) ‘ 设置索引3的打印机为默认打印机。