PUBLIC SUB Button1_Click()

ME.Close                      ' chiude il Form

END

 ' Gambas class file

Private Lblarray[5] As Label    ' pongo il limite di prova massimo a 5 oggetti ("array di 5 elementi") 
Private a As Integer
Private b As Integer


Public Sub Button1_Click()   ' Crea UNA SOLA Label ogni qualvolta viene premuto Button1
  Dim c, d As Integer
    
  b += 50
  
' crea la Label e la distingue dalle altre eventuali con un numero contenuto nella variabile “ a “,
' (ma questa volta non in aggiunta alla sua denominazione).
 Lblarray[a] = New Label(Me)
    
 Lblarray[a].Border = Border.Raised   ' definisco le caratteristiche della label
  Lblarray[a].W = 100                     ' in modo tale da posizionare le varie Label ottenute
  Lblarray[a].H = 20                       ' in luoghi diversi sul Form
   Lblarray[a].X = b                        '
   Lblarray[a].Y = b                        '

 Print Lblarray[a].ID    ' per prova trovo l'ID della Label appena creata e distinta con la variabile "a" dell'array.
  
   ' Per ulteriore prova intendo distruggere una Label precedentemente creata
   ' indicandone (questa è la prova effettiva) il numero assegnatole con la variabile " a ".
If a = 4 Then
  d = InputBox("Elimina una label (il numero deve essere compreso fra 0 e 4)")
   Print Lblarray[d].ID     ' ri-ottengo per riprova l'Id della Label scelta in InputBox
   Lblarray[d].delete       ' elimina la Label segnata dalla variabile dell'array scelta in InputBox
Endif

   a = a + 1         ' incremento la variabile relativa alla cella dell'array di indice 0

End

' Gambas class file

s As Integer
i As Integer

Public Sub Button1_Click()   ' Crea UNA SOLA Label ogni qualvolta viene premuto Button1

  Dim lab As Label
  
  i = i + 1

' crea la Label e aggiunge al suo nome anche il numero contenuto nella variabile “ i “.
 lab = New Label(Me) As "lab" & i
					
  With lab
   .X = 20
   .Y = s
    .Width = 50
    .Height = 20
       .tooltip = "Sono la Label " & i

    ' imposta il testo all'interno della Label.
      .Text = "Label" & i

  End With

 s = s + 30

     Object.Attach(lab, Me, "Evento")       ' associa l'oggetto Label alla definizione "Evento"

End


Public Sub Evento_MouseDown()          ' cliccando su una Label, fra quelle create, essa viene eliminata.

  Dim Obj As Object = Last
  Dim a As String
  
    a = Obj.name

    Obj.delete                    ' elimina la Label riportata da Last 

' Scrive quale Label è stata eliminata fra quelle precedentemente create.
  ' La variabile " a " indica il nome riportato da Obj.name.
    Print "Eliminata " & a
                                               
End

Public Sub Button1_Click()  
    
Dim id As New Integer[]  
      
  id = Desktop.FindWindow(FMain.Title)  ' .FindWindow : SOLO per Gambas3; mentre per Gambas2 è .Find !!!
    
  If id.Count > 0 Then  
      label1.text = id[0]            ' se si vuole vedere il PID
  Endif

    Embedder1.Embed(id[0])     ' inserisco la variabile contenente il PID della finestra (opportunamente già minimizzata) di Gedit.
      
End