Declare Function GetForegroundWindow Lib "user32" () As Long
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (Byval hwnd
As Long, Byval lpsz As String) As Integer
Dim hwnd As Long
Dim lpsz As String
Dim ret As Integer
hwnd = GetForegroundWindow ()
lpsz = "Title"
ret = SetWindowText ( hwnd, lpsz )
By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.