主题：请教下拉组合框

按esc会自动关闭参考：http://www.foxtable.com/webhelp/topics/2501.htm

窗口打开到屏幕对应计算的坐标即可：http://www.foxtable.com/webhelp/topics/0708.htm

请问：

下面的代码为何坐标不正确？

Dim b As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")

Dim p = Forms("窗口1").panel.parent.parent.parent

Dim p1 As point = New point(b.Left + p.left + p.Parent.Left, b.Top + p.Top + p.parent.Top)

Dim p2 As point = basemainform.PointToScreen(p1)

Dim p4 As point = New point(p2.X + b.Width , p2.Y + b.Height)

Dim jl As String = p2.X & "," & p2.Y & "," & p4.X & "," & p4.Y

Output.Show(jl)