Hi Pedro,
The problem is now solved. I delete these syntax:
Dim theAppl As Form
Dim Form As SAPbouiCOM.Form
Dim fPane As Integer = Form.PaneLevel
Dim ItemIndex As Integer
Form.PaneLevel = Form.Items.Item(ItemIndex).FromPane
'Form.Items.Item(36).Visible = True
If pVal.EventType = BoEventTypes.et_ITEM_PRESSED and pVal.Before_Action = False Then
If Form.Items.Item(36).Visible = True Then
And created new one. But I have to apply your solution too as follows:
Public Sub HideControl(ByVal FormUID As String, ByVal ItemIndex As Object)
Try
Dim Form As SAPbouiCOM.Form = theAppl.Forms.Item(FormUID)
Dim fPane As Integer = Form.PaneLevel
Form.PaneLevel = Form.Items.Item(ItemIndex).FromPane
Form.Items.Item(ItemIndex).Visible = False
Form.PaneLevel = fPane
Catch ex As Exception
End Try
End Sub
so now, my new syntax work well.
Thanks for your help.
Steve