[Ghoghnus]

سلام دوستان با این کد میتونید عنوان پنجره های فعال را عوض کنید!

کد:

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