Select Case Me.Açılan_Kutu0
Case "A"
Komut4.visible=true
Komut5.visible=true
Komut6.visible=true
Case "B"
Komut4.visible=false
Komut5.visible=false
Komut6.visible=true
Case "C"
Komut4.visible=true
Komut5.visible=true
Komut6.Visible = False
Case "D"
Case "E"
Case "F"
Case "G"
End Select
A, B ve C için gerekli kodu ekledim, diğer harfler için koda ekleme yapmanız gerekiyor.