diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb
index ae0e6d9..1eb836b 100644
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/app/DD_PM_WINDREAM/frmValidator.vb
@@ -1363,24 +1363,14 @@ Public Class frmValidator
         End Try
 
     End Sub
-    Public Sub onLookUp0(sender As Object, e As System.EventArgs)
-        Dim oLookup As LookupControl3 = sender
-        Try
-            If Not IsNothing(oLookup.Properties.SelectedValues) Then
-                For Each ocont In oLookup.Properties.SelectedValues
-                    Dim o = ocont
-                Next
-            End If
-        Catch ex As Exception
-
-        End Try
-    End Sub
     Public Sub onLookUpselectedValue(sender As Object, SelectedValues As List(Of String))
         LOGGER.Debug("onLookUpselectedValue")
         If FormLoaded = False Then
             Exit Sub
         End If
-        Dim oLookup As LookupControl3 = sender
+        Dim oRepositoryItem As RepositoryItemLookupControl3 = sender
+        Dim oLookup As LookupControl3 = oRepositoryItem.OwnerEdit
+
         Try
             If Not IsNothing(SelectedValues) Then
                 If SelectedValues.Count = 1 Then
@@ -1437,7 +1427,8 @@ Public Class frmValidator
             Exit Sub
         End If
         LOGGER.Debug("onLookUpselectedValue_Control2Set")
-        Dim oLookup As LookupControl3 = sender
+        Dim oRepositoryItem As RepositoryItemLookupControl3 = sender
+        Dim oLookup As LookupControl3 = oRepositoryItem.OwnerEdit
         Try
             If Not IsNothing(SelectedValues) Then
                 If SelectedValues.Count = 1 Then