Can't type in textBox using Keyboard

[karedox]

I have User form with one text Box in side, I change the window style of this User Form using " and Not WS_POPUP or WS_CHILD ".
I want this User Form to be Child Window Style.
After this process I can't type anything in textbox using keyboard.

Please help!

 

[Jaafar Tribak]

Child to which Parent ? Can you show the code ?

 

[karedox]

Child to which Parent ? Can you show the code ?

Thanks for your respond
this is my code in userform :

Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Const WS_CHILD = &H40000000
Private Const WS_POPUP = &H80000000
Private Const GWL_STYLE = (-16)

Private Sub UserForm_Initialize()
Dim X As Long, Y As Long, z As Long
X = FindWindowA(vbNullString, Me.Caption)
Y = GetWindowLongA(X, GWL_STYLE)
Y = Y And Not WS_POPUP Or WS_CHILD
Y = SetWindowLongA(X, GWL_STYLE, Y)
z = SetParent(X, Application.hwnd)
End Sub

Any Suggestion ?