window creation problem!!

[Mine_23]

Hello;
When I have created a menu in API, I used some base window styles in creation but when the menu had appeared no one of them was set; it was like a transparent window stuck on desktop, why? how to fix this?
Look at it's class properities:

With myClass
.cbClsExtra = 0
.cbSize = Len(myClass)
.cbWndExtra = 0
.hbrBackground = 2
.lpfnWndProc = DummyFunc(AddressOf CallBack)
.hIcon = 0
.hCursor = 0
.hInstance = App.hInstance
.lpszMenuName = ""
.lpszClassName = "myNewClass"
.hIconSm = 0
.style = 40
End With

hWndlem = CreateWindowEx(WS_EX_CLIENTEDGE, "myNewClass", vbNullString, WS_BORDER or WS_DLGFRAME or WS_VISIBLE_
, 10, 10, 30, 60, 0, 0, App.hInstance, 0)



Not only these I tried all of them (base window styles an ex-window styles)