OBJETOS DE LA PAPELERIA

OBJETOS DE LA PAPELERIA

Private Sub Command1_Click()
  Beep
  End
End Sub

Private Sub Label1_Click()
Label2.Caption = "CALCULADORA"
End Sub

Private Sub Label10_Click()
Label2.Caption = "CAJA DE GANCHOS"
End Sub

Private Sub Label11_Click()
Label2.Caption = "COLORES"
End Sub

Private Sub Label12_Click()
Label2.Caption = "CAJA DE PAPEL PERIODICO"
End Sub

Private Sub Label4_Click()
Label2.Caption = "SACAPUNTAS"
End Sub

Private Sub Label5_Click()
Label2.Caption = "CINTA"
End Sub

Private Sub Label6_Click()
Label2.Caption = "REGLAS"
End Sub

Private Sub Label7_Click()
Label2.Caption = "CUADERNO"
End Sub

Private Sub Label8_Click()
Label2.Caption = "COCEDORA"
End Sub

Private Sub Label9_Click()
Label2.Caption = "PEGASTIC"