Sub spin1_itemclick(position As Int,value As Object)
testo.Text=""
spinindex=0
spinindex=spin1.SelectedIndex
SpinMessaggio
End Sub
Sub SpinMessaggio
spintesto = spin1.GetItem(spinindex)
If spinindex=0 OR spinindex= 2 OR spinindex= 3 OR spinindex= 4 OR spinindex=6 Then
Barbut.RemoveView
LbScelta.Text= Main.Dlg33 & spintesto.SubString(3)'Scrivere parte del
Else
If spinindex=1 Then
Barbut.RemoveView
LbScelta.Text=Main.Dlg34 & spintesto.SubString(3)'Scrivere parte dell'
Else
If spinindex=5 Then
LbScelta.Text=Main.Dlg33 & spintesto.SubString(3)'Scrivere parte del
pnl.AddView(Barbut,59%x,31%y,12%x,8%y)
End If
End If
End If
End Sub