# data[].attributes.body
'dichiarazione della variabile di nome "titolo" e di titolo String

Dim titolo As String

# data[].attributes.body
Call acquisisciDati()                                                           'questa istruzione dà il nome alla sub di "acquisiscidati"

# data[].attributes.body
'acquisizione di un dato della textbox di nome "txtTitolo"                           'E copia dello stesso nella variabile di nome "txtTitolo"
titolo = txtTitolo.Text

# data[].attributes.body
Call acquisisciDati()                                                                                          'E la stringa che chiama il comando acquisisci dati e lo esegue

# data[].attributes.body
Private Sub btnScrivi_Click(sender As Object, e As EventArgs) Handles btnScrivi.Click
'E' un bottone che una volta cliccatoci avviene l'esecuzione data della Sub

# data[].attributes.body
titolo = txtTitolo.Text
testo = txtTesto.Text
'Estrapola i file inseriti dall'utente nella text box

# data[].attributes.body
'visualizzazione di ciò che è scritto nel "testo" della form e nella "lbltestom"
Me.Text = titolo
lblTestoM.Text = testo

# data[].attributes.body
Call acquisisciDati()
'Chiamata della sub con "acquisisciDati"

# data[].attributes.body
Private Sub acquisisciDati()
'Acquisizione di un dato dalla textbox di nome "txtTesto"
'e copia dello stesso nella variabile di nome "Testo"
testo = txtTesto.Text
lblTestoM.Text = testo
End Sub

# data[].attributes.body
'dichiarazione della variabile, di nome "testo" e di tipo String
Dim testo As String
Dim titolo As String

# data[].attributes.body
Private Sub acquisisciDati()
'Tramite la text box si cambia il titolo della form
titolo = txtTitolo.Text
'Tramite text box si cambia il testo contenuto nella label
testo = txtTesto.Text
End Sub

# data[].attributes.body
Private Sub rendiMaiuscolo()
'Si cambia il testo nella variabile titolo
testo = testo.ToUpper()

End Sub