directcast(me.controls(a),button).visible=true
Public Sub affiche(ByVal menun As String) 'MsgBox(menun) 'DirectCast(Me.Controls(a), Button).visible = True Try DirectCast(Me.C1RibbonMenu.GetItemByName(menun), C1.Win.C1Ribbon.RibbonButton).Visible = True Catch ex As Exception DirectCast(Me.C1RibbonMenu.GetItemByName(menun), C1.Win.C1Ribbon.RibbonTab).Visible = True End Try End Sub