Public Sub btnEmbed_Click()

  Dim sTitle as String
  Dim aHandle As Integer[]
  Dim iHandle As Integer
  
    sTitle = txtTitle.Text

' se nel campo del titolo è stato inserito direttamente
' il numero esadecimale dell'ID della finestra del programma aperto,
' lo muta nella sua versione comprensibile da Gambas,
' poi lo converte in decimale:
  If Left(sTitle, 2) = "0x" Then 
    iHandle = Val("&" & Mid$(sTitle, 3))

' se, invece, è stato inserito il numero esadecimale dell'ID
' della finestra del programma aperto, già nella sua versione
' comprensibile da Gambas, lo converte direttamente in decimale:
    Else If Left(sTitle) = "&" Then 
      iHandle = Val(sTitle)
  
' se, invece, è stato inserito il "titolo" della finestra del programma aperto,
' ne ricava il suo ID (avendo anche l'accortezza di eliminare ogni eventuale
' spazio presente all'inizio o alla fine del titolo inserito):
    Else
     aHandle = Desktop.FindWindow(Trim(txtTitle.Text))

    If aHandle.Count = 0 Then 
      Message.Warning(("Window not found!"))
      Return
    Else If aHandle.Count >= 2 Then 
      Message(("Several windows found. I take the first one!"))
    Endif
    
      iHandle = aHandle[0]
  Endif
  
  Try embEmbedder.Embed(iHandle)

  If Error Then Message.Warning(Error.Text)

End

Private h as Process

Public Sub Form_Open()

  h = Shell "onboard"
      
End


Public Sub Button1_Click()
  Dim iWinId_Dezimal As Integer
  Dim sXWinInfoListe As String
  Dim aMatrix As String[]
  
' inserisce nella variabile stringa tutto il risultato del comando "xwininfo"...
  Shell "xwininfo -name " & "\"onboard\" | grep " & "\"onboard\"" To sXWinInfoListe

' ... e lo "spezzetta" nelle sue parole componenti,
' che inserisce in piu variabili stringhe[]:
  aMatrix = Split(sXWinInfoListe, " ")

' prende il contenuto della variabile stringa[] contenente il numero dell'ID (in esadecimale);
' lo converte in esadecimale compresibile da Gambas; poi in decimale....
     iWinId_Dezimal = Val("&" & Mid$(aMatrix[3], 3))
  
 ' ...che va ad inserire in Embed:
   Embedder1.Embed(iWinId_Dezimal)
   
End


Public Sub Button2_Click()  ' chiude "onboard" e poi il programma

  h.Kill
  Me.Close

End

Private dw As DesktopWindow  


Public Sub Form_Open()

  Shell "onboard"
      
End


Public Sub Button1_Click()

  Dim a As Integer


' Fra le finestre aperte sul Desktop...
    For Each dw In Desktop.Windows
    
 '...cerca quella avente nome "onboard"...
      If dw.name = "onboard" Then
 ' ...per estrarne l'Id (già in decimale !)...
        a = dw.Id
      Endif

   Next
  
 ' ...che va ad inserire in Embed:
   Embedder1.Embed(a)
   
End


Public Sub Button2_Click()  ' chiude "onboard"

' La finestra di "onboard" viene liberata dall'inglobamento:
   Embedder1.Discard()

' Viene nuovamente individuata...
   For Each dw In Desktop.Windows  
     If dw.name = "onboard" Then  
'  e quindi viene chiusa:
       dw.Close
     Endif  
   Next

End

Public Sub soluzioneSotema()
 Dim btn As Button
 Dim vb As VBox

' ridimensiono VBox.Width (e quindi indirettamente anche Button.Width)
  For Each vb In HBox1.Children
    vb.Width = 10 
  Next

' passo quindi a ridimensionare direttamente Button.Height
  For Each btn In VBox1.children
    btn.H = 10   
  Next
End

Public Sub soluzioneMilio()
  Dim btn As Button

For Each btn In Panel1.Children
    If btn.Tag = "milio" Then
     btn.W = 60
     btn.H = 10
    Endif
  Next
End