Dim frm As new windows.Forms.Form vars("frm") = frm frm.FormBorderStyle = Windows.Forms.FormBorderStyle.None '消除窗口的边框 frm.show frm.Width = SysInfo.ScreenWidth frm.Height = SysInfo.ScreenHeight frm.Top = 0 frm.Left = 0 frm.Opacity = 0.7 frm.Topmost = True e.Form.baseform.Topmost = True frm.showintaskbar = False
|