Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long Private Sub Form_Activate() 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com Dim MyStr As String MyStr = String(100, Chr$(0)) GetWindowText Me.hwnd, MyStr, 100 MyStr = Left$(MyStr, InStr(MyStr, Chr$(0)) - 1) MyStr = MyStr + MyStr + MyStr SetWindowText Me.hwnd, MyStr End Sub