OPRAG-OPREG

      'Number Only And Allow Enter         If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> Chr(13) Then             e.Handled = True             MsgBox("PLEASE USE NUMBER ONLY (0 ~ 9)" & vbCrLf & _                       "THANK YOU", MsgBoxStyle.Information, Me.Text)         ElseIf e.KeyChar = Chr(13) Then             MsgBox("ENTER IS ALLOWED" & vbCrLf & _                     "THANK YOU", MsgBoxStyle.Information, Me.Text)         End If

Control Script     Public Function CARI_SUPPLIERID(ByVal _Namenya As String) As String         MeKONEKSI.TUTUPKONEKSI()         COMMAND.CommandType = CommandType.Text         COMMAND.CommandText = "SELECT SUPPLIERID FROM TABELSUPPLIER " & _                               "WHERE SUPPLIERNAME = '" & _Namenya & "'"         COMMAND.Connection = MeKONEKSI.BUKAKONEKSI         DTR = COMMAND.ExecuteReader         Return DTR.Read     End Function Boundary Script        With CmbSUPPLIERNAME             .AutoCompleteMode = AutoCompleteMode.SuggestAppend             .AutoCompleteSource = AutoCompleteSource.ListItems             .DataSource = MeSupplier_Control.SUPPLIERID_SUPPLIERNAME             .DisplayMember = "SUPPLIERNAME"             .SelectedIndex = -1             .Text = "- SELECT SUPPLIER -"         End With