Dim PIC
  Set PIC=ScreenItems("窗口")
  PIC.ScreenName="画面"
  PIC.Visible=True
  If((x+pic.Width)>item.Parent.Width) Then
      pic.Left=item.Parent.Width-pic.Width
  Else
       pic.Left=x
  End If
 
  If((y+pic.Height)>item.Parent.Height) Then
      pic.Top=item.Parent.Height-pic.Height
  Else
       pic.Top=y
  End If

这个VBS代码作用在按钮上的时候弹出来的窗口会在鼠标附近，可如果用在控件上的时候弹出的窗口就不在鼠标附近了，这个是为什么？？？