Apri un nuovo progetto, metti 2 command button e una label.
Copia questo codice
quindi clicca prima sul command1 e poi sul command2codice:Option Explicit Dim Var1 As String Private Sub Command1_Click() Var1 = "Ciao" End Sub Private Sub Command2_Click() Label1.Caption = Var1 End Sub
Ciao.

 
			
			
 
					
					
					
						 Rispondi quotando
  Rispondi quotando