几个问题

1、Sleep函数

2、ByVal是拷贝内存中的值，而ByRef是传递指针�

3、我家没打印机
4、可以用FSO的TextStream

Public Declare Sub Sleep Lib "kernel32.dll"(ByVal DwmilliSeconds As Long)
Sleep 毫秒�

MsgBox "我的文档路径：" & CreateObject("Wscrippt.Shell").SpecialFolders("MyDocuments")

API版：
Public Declare Funсtion SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long
Public Declare Funсtion SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long
Sub Main()
Dim Tmp As String * 256
Dim pidl As Long 
Dim TStr As String
SHGetSpecialFolderLocation 0, $2E, pidl
SHGetPathFromIDList pidl, sTmp
TStr = Left(Tmp, InStr(Tmp, Chr(0)) - 1)
MsgBox "我的文档路径：" & TStr
End Sub

回9楼，label能放到picturebox里，反之不能。
按键颜色默认的很难看，真的。要把style=1才可以�