別モニターにフォームを表示させたい

フォームを表示させたいモニターを表すScreenオブジェクトを取得する
AllScreensプロパティでディスプレイプロパティを表示できるらしい
1番　ディスプレイなら Screen.AllScreens(0)にし、2番目はScreen.AllScreens(1)

'2番　ディスプレイ
Dim s1 As Screen = Screen.AllScreens(1)
Dim f As New Form2()
'フォームの開始位置をディスプレイの左上座標に設定する
f.StartPosition = FormStartPosition.Manual f.Location = s1.Bounds.Location
'フォームを表示する
f.Show()