Por un pequeño problemita con el foco, nada mas simple que agregar un SetFocus.
En las declaraciones agregar:
Private Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
y por algun lado del codigo (que no sea la primer funcion!!):
Private Sub UserControl_GotFocus()
Call SetFocus(mhwnd)
End Sub
Saludos!
