主题：狐表中有没有识别显示器的代码？

相关知识点

msgbox(Windows.forms.Screen.AllScreens.length)
For Each s As object In Windows.forms.Screen.AllScreens
    msgbox(s.Bounds.width)
Next
'Dim cs = Windows.forms.Screen.FromControl(basemainform) '当前屏幕

'basemainform.left = 500
'basemainform.top = 0

https://msdn.microsoft.com/zh-cn/library/system.windows.forms.screen.aspx