Hi Ankit,
This is my code.
If ((pVal.FormType = 60110 And pVal.EventType <> BoEventTypes.et_FORM_UNLOAD) And (pVal.Before_Action = True)) Then
oForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
If (pVal.EventType = BoEventTypes.et_FORM_LOAD) And (pVal.Before_Action = True) Then
oNewItm = oForm.Items.Add("CMP_1", BoFormItemTypes.it_FOLDER)
oForm.Freeze(True)
Oitem = oForm.Items.Item("50")
oNewItm.Top = Oitem.Top
oNewItm.Height = Oitem.Height
oNewItm.Left = Oitem.Left + Oitem.Width
oNewItm.FromPane = Oitem.FromPane
oNewItm.ToPane = Oitem.ToPane
OFolder = oNewItm.Specific
OFolder.Caption = "Comp"
OFolder.GroupWith("50")
oForm.PaneLevel = 1
'Form.Items.Item("52").Visible = False
oForm.Refresh()
oForm.Freeze(False)
End If
End If
If pVal.ItemUID = "CMP_1" And pVal.EventType = BoEventTypes.et_ITEM_PRESSED And pVal.Before_Action = True Then
'SBO_Application.StatusBar.SetSystemMessage("panel", BoMessageTime.bmt_Medium, BoStatusBarMessageType.smt_Warning, "", "", "", 0)
oForm.PaneLevel = 7
End If