Display Define New and Display last value from UDT in SAP B1

Dear All,
   Today , We will see, How to Display Define New and Display last value from UDT through SDK.

Private Sub ComboBox0_ComboSelectAfter(ByVal sboObject As Object, ByVal pVal As SAPbouiCOM.SBOItemEventArg) Handles ComboBox0.ComboSelectAfter
            Try
                If Me.ComboBox0.Selected.Value = "-9" Then
                    SBO_Application.ActivateMenuItem("51202")
                Else
                    Me.ComboBox0.ExpandType = SAPbouiCOM.BoExpandType.et_ValueDescription
                End If
            Catch ex As Exception

            End Try
        End Sub
 Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent

            If pVal.FormTypeEx = "SetColorComboBox.Form1" Then
                Select Case pVal.EventType
                    Case SAPbouiCOM.BoEventTypes.et_FORM_ACTIVATE
                        If pVal.ActionSuccess And pVal.BeforeAction = False Then
                            objForm = SBO_Application.Forms.Item(pVal.FormUID)
                            If objForm IsNot Nothing Then
                                blnForm = False
                                If blnForm = False Then
                                    ComboBoxLoadValues(Me.ComboBox0, "SELECT Code,Name FROM ""@TESTDEFINENEW""  Order by Code")
                                    Me.ComboBox0.Item.DisplayDesc = True
                                End If
                            End If

                        End If
                End Select
            End If
        End Sub

        Private Sub SBO_Application_MenuEvent(ByRef pVal As SAPbouiCOM.MenuEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.MenuEvent
            If pVal.BeforeAction And pVal.MenuUID = "51202" Then
                ComboBox0.ValidValues.Remove(ComboBox0.ValidValues.Count - 1, SAPbouiCOM.BoSearchKey.psk_Index)
                ComboBox0.Item.Description = String.Empty
                blnForm = True
            End If

        End Sub