Private Sub Form_Load()
'Tamaño del area de trabajo (Ancho x Alto)
'Altura de la pantalla
h = Screen.Height / Screen.TwipsPerPixelY
'Ancho de la pantalla
w = Screen.Width / Screen.TwipsPerPixelX
'REsolucion 800 x 600
If h = 600 And w = 800 Then
With Me
.Height = 8670
.Width = 12090
End With
End If
'Resolución 1024 x 768
If h = 768 And w = 1024 Then
With Me
.Height = 11145 '9930
.Width = 12090
'Determinas la posición del form en la pantalla
.Top = Screen.TwipsPerPixelY '/ 2 + 200
.Left = Screen.TwipsPerPixelX + 1526 '/ 2 + 200
End With
End If
'Resolución 1152 x 864
If h = 864 And w = 1152 Then
With Me
.Height = 11145 '9930
.Width = 12090
.Top = h / 2
.Left = w / 2
End With
End If
End Sub