Dim ligne As Int = 8
For y = 0 To 7
For i = 0 To frm.RootPane.NumberOfNodes - 1
If frm.RootPane.GetNode(i) Is Button Then
Dim bt As Button = frm.RootPane.GetNode(i) ' Move the btn to this place. DO NOT initialize the button.
Dim str As String = bt.Tag 'a8 a7 NOTE to get the Tag from the Button, not from the view you get from frm.RootPane.GetNode(i)
If str = Chr(rg+97) & (ligne) Then
bt.Text = col.SubString2(y,y+1)
ligne = ligne - 1
Exit
End If
End If
Next
Next