If Screen.FromPoint(Me.Location).Primary Then 'is primary Else 'nope End If
Get device name on which form is currently on :
Screen.FromPoint(Me.Location).DeviceName
Get Screen resolution of display, your form is currently on :
Dim rect As Rectangle = Screen.FromPoint(Me.Location).Bounds