Private Sub TextSec4_LostFocus()
  Call SendMessage(pTime1.hWnd, WM_SETFOCUS, 0&, 0&)
End Sub

Private Sub TextSec4_LostFocus()
  Call SendMessage(pTime1.hWnd, WM_SETFOCUS, 0&, 0&)
End Sub

Private Declare Function PutFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long

Private Sub TextSec4_LostFocus()
  PutFocus pTime1.hwnd
End Sub

Private Sub InitDateTimePicker()
  Set pTime1 = New cDateTimePicker
  Call pTime1.Create(Picture_pTime1.hWnd, DTS_TIMEFORMAT, 0, 0, Picture_pTime1.Width, Picture_pTime1.Height)
  pTime1.Format = "H 'h' mm' min 'ss' sec'"
End Sub

Private Declare Function PutFocus Lib "user32" Alias "SetFocus" (ByVal hWnd As Long) As Long

Private Sub Picture_pTime1_GotFocus()
  PutFocus pTime1.hWnd
End Sub

Public Function NewPicturePTime1WindowProc _
 (ByVal hWnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
  Dim tNMH As NMHDR
 
  Select Case MSG
    Case WM_NOTIFY
      CopyMemory tNMH, ByVal lParam, Len(tNMH)
      Select Case tNMH.code
        Case NM_SETFOCUS
          Debug.Print "NM_SETFOCUS(API_Control)"
          Call SendMessage(Form1.Picture_pTime1.hWnd, WM_SETFOCUS, 0&, 0&)
        Case NM_KILLFOCUS
          Debug.Print "NM_KILLFOCUS(API_Control)"
        Case Else
      End Select
    Case Else
  End Select
 
  NewPicturePTime1WindowProc = CallWindowProc _
   (OldPicturePTime1WindowProc, hWnd, MSG, wParam, lParam)
End Function