If Screen.AllScreens.Count > 1 Then
Dim screen As Screen
Dim scrwidth As Integer
screen = screen.AllScreens(1)
scrwidth = screen.AllScreens(1).Bounds.Size.Width / 2
Me.Location = screen.Bounds.Location
Me.Left += scrwidth - Me.Width / 2
END if
---------------------------------------------
大概是類似這樣吧:
Dim screen As Screen
screen=screen.Allscreens (1)
Form2.Location=screen.Bounds.Location
Form2.Show()
-----------------------------------------------