Hi,
Here is some code to place & resize a form in the 4 quadrents of the screen.
I'm not sure if this will do for your Quad display.
All you have to do is change the constant in form load to change where the form appears.
Option Explicit
Const Screen_TopLeft = 1
Const Screen_TopRight = 2
Const Screen_BottomLeft = 3
Const Screen_BottomRight = 4
Dim iStart As Integer
Private Sub Form_Load()
iStart = Screen_BottomLeft
End Sub
Private Sub Form_Resize()
If Me.WindowState = vbNormal Then
Select Case iStart
Case Screen_TopLeft
Me.Left = 0
Me.Top = 0
Case Screen_TopRight
Me.Left = CInt(Screen.Width - Screen.Width / 2)
Me.Top = 0
Case Screen_BottomLeft
Me.Left = 0
Me.Top = CInt(Screen.Height - Screen.Height / 2)
Case Screen_BottomRight
Me.Left = CInt(Screen.Width - Screen.Width / 2)
Me.Top = CInt(Screen.Height - Screen.Height / 2)
End Select
Me.Width = CInt(Screen.Width / 2)
Me.Height = CInt(Screen.Height / 2)
End If
End Sub
Enter your message below
Sign in or Join us (it's free).