โค้ด:

1.         '// หาจำนวนจอมอนิเตอร์ (คำสั่งอยู่ในฟอร์มหลัก)
   
2.         Dim NumOfMonitors As Integer = Screen.AllScreens.Length
   
3.         If NumOfMonitors > 1 Then
   
4.             'Me.Bounds = Screen.AllScreens(0).Bounds    '// ระบุมอนิเตอร์ให้แสดงผล
   
5.             '// เปิดฟอร์ม 2
   
6.             With Form2
   
7.                 .Show()
   
8.                 '.Bounds = Screen.AllScreens(1).Bounds
   
9.                 .Location = Screen.AllScreens(1).WorkingArea.Location
   
10.                 .StartPosition = FormStartPosition.Manual
    
11.                 .FormBorderStyle = FormBorderStyle.None '// ปิดปุ่ม Min/Max/Close
    
12.                 .WindowState = FormWindowState.Maximized    '// แสดงผลเต็มจอ
    
13.             End With
    
14.         End If