09-04-2011، 02:12 PM
سلام دوستان با این کد میتونید عنوان پنجره های فعال را عوض کنید!
کد:
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Sub Timer1_Timer()
c = GetForegroundWindow
SetWindowText c, "خلیج فارس"
End Sub