呃，这个问题直接用画面窗口的标题来过渡就行了。
代码增加了画面窗口位置判断，最大限度的不覆盖下一个IO域。
用下面的代码替换原来的代码就行了。

On Error Resume Next
Dim x1,y1,w1,h1
Dim x2,y2,w2,h2

ScreenItems("H1").TagPrefix = "P1"
ScreenItems("H1").ScreenName = "PVMod"

x1=Item.Top
y1=Item.Left
w1=Item.Width
h1=Item.Height

x2=ScreenItems("H1").Top
y2=ScreenItems("H1").Left
w2=ScreenItems("H1").Width
h2=ScreenItems("H1").Height

If x1 > h2 Then ScreenItems("H1").Top = x1 - h2 Else ScreenItems("H1").Top = x1 + h1
If y1 > w2 Then ScreenItems("H1").Left = y1 - w2 Else ScreenItems("H1").Left = y1 + w1

If ScreenItems("H1").CaptionText <> Item.ObjectName Then
ScreenItems("H1").Visible = True
ScreenItems("H1").CaptionText = Item.ObjectName
Else
If ScreenItems("H1").Visible = False Then
ScreenItems("H1").Visible = True
Else
ScreenItems("H1").Visible = False
End If
End If