Hi expert, UDF HIDING PROBLEM

Question

Hi all,
my code below i m getting proble when i hiding udf .
i done using this code but application got slow because each time this event called.
   If pVal.FormType = "-142" Then
                Try
                    If BubbleEvent = True Then
                        oForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
                        Dim oItem As SAPbouiCOM.Item
                        oItem = oForm.Items.Item("U_UIN1")
                       oItem.Left = 500
                        oItem = oForm.Items.Item("1000007")
                        oItem.Visible = False
                    End If
                Catch ex As Exception
                    'MsgBox("cra" & ex.Message)
                    ShowErrMsg("U_UIN 1  Hide" & ex.Message)
                End Try
            End If
please  make change in above code  that only one time this code will call.
i already test with form load event but no effect on udf.
regards
Rajkumar G

Answer 1

create function for hiding udf as
Sub hideUDF()
        Try
            Dim oforms As SAPbouiCOM.Forms
            Dim oform As SAPbouiCOM.Form
            oforms = SBO_Application.Forms
            For Each oform In oforms
                If oform.Type = "-139" Then
                    Dim oItem As SAPbouiCOM.Item
                    oItem = oform.Items.Item("U_UIN1")
                    oItem.Left = 500
                    oItem = oform.Items.Item("1000007")
                    oItem.Visible = False
                End If
            Next
        Catch ex As Exception
            'MsgBox("cra" & ex.Message)
            SBO_Application.MessageBox(ex.Message)
        End Try
    End Sub
to ItemEvent add code
If pVal.FormType = "-139" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_ACTIVATE And pVal.BeforeAction = False Then
                hideUDF()
            End If
to formadataevent add code
If BusinessObjectInfo.FormTypeEx = "139" And BusinessObjectInfo.BeforeAction = False Then
            hideUDF()
        End If