1
2
3
4
5
6
7
8
9
10
11
| Dim invisiblelettreboutton As Object
Dim invisiblelettremenu As New MenuItem
Private Sub CliqueSurBoutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ABT.Click, BBT.Click, CBT.Click, DBT.Click, EBT.Click, FBT.Click, GBT.Click, HBT.Click, IBT.Click, JBT.Click, KBT.Click, LBT.Click, MBT.Click, NBT.Click, OBT.Click, PBT.Click, QBT.Click, RBT.Click, SBT.Click, TBT.Click, UBT.Click, VBT.Click, WBT.Click, XBT.Click, YBT.Click, ZBT.Click, ATSMI.Click, BTSMI.Click, CTSMI.Click, DTSMI.Click, E.Click, FTSMI.Click, GTSMI.Click, HTSMI.Click, ITSMI.Click, JTSMI.Click, KTSMI.Click, LTSMI.Click, MTSMI.Click, NTSMI.Click, OTSMI.Click, PTSMI.Click, QTSMI.Click, RTSMI.Click, STSMI.Click, TTSMI.Click, UTSMI.Click, VTSMI.Click, WTSMI.Click, XTSMI.Click, YTSMI.Click, ZTSMI.Click
Lettre2 = sender.text
invisiblelettremenu.Name = Lettre2 & "TSMI"
invisiblelettreboutton = Lettre2 & "BT"
invisiblelettremenu.Enabled = False
invisiblelettreboutton.enabled = False |
