主题：关于判断窗口是否已经打开

主窗口timertick事件

Dim mf As WinForm.Form = e.form
Dim flag As Boolean = False
For Each f As WinForm.Form In forms
    If f.Opened AndAlso f.name <> mf.name Then
        flag = True
        Exit For
    End If
Next

If flag = False Then
    Dim lbl As WinForm.Label =mf.Controls("Label1")  
    If lbl.left+lbl.width > 0 Then
        lbl.left -= 10
    Else
        lbl.left = mf.width
    End If
End If