Private Declare Function GetDlgCtrlID Lib "user32" _
 (ByVal hWnd As Long) As Long
 
Public Function ControlFromHandle(Form As Form, _
 ByVal hWnd As Long) As Control
 
  Dim nID As Long
 
  nID = GetDlgCtrlID(hWnd)
  If nID > 0 Then
    Set ControlFromHandle = Form.Controls(nID - 1)
  End If
End Function