gestione input output dati

inserimento dati con cells, textbox,label
visualizzazione dati con cells,textbo.label,listbox

vedi formato1.xls

Private Sub CommandButton1_Click()
rem formato1
Rem cells(riga,colonna)
Rem sintassi per input output
'scrivere dato in cella A1 (1,1)e stampare in B1 (1,2)
intero1 = Cells(1, 1)
Cells(1, 2) = intero1
'scrivere dato in textbox1 e stampare in textbox2
intero2 = TextBox1.Text
TextBox2 = intero2
'scrivere dato in label1 e stampare in label2
intero3 = Label1.Caption
Label2.Caption = intero3
'inserire dati in listbox1
ListBox1.AddItem ("primo dato")
ListBox1.AddItem ("secondo dato")
End Sub

Private Sub CommandButton2_Click()
'cancellare celle ,label, textbox
Label1.Caption = ""
Label2.Caption = ""
TextBox1 = ""
TextBox2 = ""
Cells(1, 1) = ""
Cells(1, 2) = ""
listbox1.clear
End Sub

Private Sub CommandButton3_Click()
'visualizzare messaggio con MsgBox
MsgBox ("testo da stampare")
End Sub

Private Sub Label1_Click()
Label1.Caption = "50"
End Sub