End Sub
    
    Private Sub LblCancel_Click()
    Unload Me
    End Sub
    
    Private Sub lblOk_Click()
    If OK = 1 Then
    FrmBOM.TxtFather = TxtItem.Text
    Unload Me
    End If
    If OK = 2 Then
    FrmSBOMQury.TxtItem = TxtItem.Text
    Unload Me
    End If
    End Sub