Private Declare Function GetForegroundWindow Lib "user32" () As Integer
    Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByRef hwnd As Integer, ByRef lpString As String, ByRef cch As Integer) As Integer

  Dim a As Integer = GetForegroundWindow
        Dim Titre As String = ""
        Dim L As Integer = GetWindowText(a, Titre, 256) 'L retourne la longueur de la chaîne,Titre retourne le titre de la fenêtre.

//These statements determine the active sheet in the MDI frame window w_frame and change the text of the menu selection m_close on the menu m_file on the menu bar m_main. If no sheet is active, the text is Close Window:

// Declare variable for active sheet

window activesheet

string mtext

activesheet = w_frame.GetActiveSheet()

IF IsValid(activesheet) THEN

    // There is an active sheet, so get its title;

    // change the text of the menu to read

    // Close plus the title of the active sheet

    mtext = "Close " + activesheet.Title

    m_main.m_file.m_close.Text = mtext

ELSE

    // No sheet is active, menu says Close Window

    m_main.m_file.m_close.Text = "Close Window"

END IF

gw_mywindow = This

if  IsNull( iw_prec ) then

        iw_prec = gnuo_global.gw_activate

end if