使用API函数

Private Declare Function SetWindowText Lib “user32” Alias “SetWindowTextA” (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Sub Command1_Click()

SetWindowText Form1.hwnd, “hellworld!”

End Sub