Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long Private Sub Command1_Click() Dim hwnd As Long 'vbNullString 是值为 0 的字符串 用来调用外部过程,与长度为零的字符串 ("") 不同,在易中可以用 字符(0)代替 hwnd = FindWindow(vbNullString, "计算器") SetWindowText hwnd, "修改后的标题名" End Sub vbNullString:这是个常量,表示一个empty字符串。它与空白字符串""不同,表示什么也没有的字符串(nothing string)。对于许多场合,它被当作一个empty字符串""处理,真正使用它的目的是传递null参数给库函数。