Use Windows.pkg

Object info_panel is a toolPanel
    Set Location to 12 14
    Set locate_mode to center_on_screen
    Set minimize_icon to False
    Set modal_state to False
    Set Label to "Searching..."
    // Visual DataFlex 14.0 Client Size Adjuster, modified May 7, 2008: 13:11:32
//    Set Size to 40 150
    Set Size to 27 139
    Object tekst is a TextBox
        Set label to ""
        Set Size to 10 80
        Set Location to 5 5
    End_Object    // Textbox1
    Object tekst2 is a TextBox
        Set label to ""
        Set Size to 10 80
        Set Location to 15 5
    End_Object    // Textbox1
    Procedure DoShowWorking String sBesked
        Set label to "Working..."
        Set label of (tekst(Self)) to sBesked
        Set label of (tekst2(Self)) to ""
        Send Activate
    End_Procedure
End_Object