dim f = Forms("窗口1")f.Open
Dim x As Integer = SysInfo.WorkingAreaWidth - f.widthDim y as integer = SysInfo.WorkingAreaHeight - f.height
f.baseform.left = xf.baseform.top = y