componentes del computador

Private Sub Command1_Click()
  Beep
  End
End Sub

Private Sub Label1_Click()
Label5.Caption = "MONITOR"

End Sub

Private Sub Label2_Click()
Label5.Caption = "TECLADO"
End Sub

Private Sub Label3_Click()
Label5.Caption = "TORRE"
End Sub

Private Sub Label4_Click()
Label5.Caption = "MOUSE"
End Sub