Beto, probá esta rutina, ponela en el form - activate.
César.
'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 = 600 Or h = 600 And w = 800 Then
If Me.Width > 12090 Or Me.Width < 12090 Or Me.WindowState = 2 Or
Me.Height > 8670 Or Me.Height < 8670 Then
Me.WindowState = 0
Me.Height = 9000
Me.Width = 12000
Me.Top = 0
Me.Left = 0
End If
End If
'Resolución 1024 x 768
'If h = 768 And w = 1024 Or h = 864 And w = 1152 Then
If h = 768 And w = 768 Or h = 768 And w = 1024 Then
If Me.Width > 12090 Or Me.Width < 12090 Or Me.WindowState = 2 Or
Me.Height > 9930 Or Me.Height < 9930 Then
Me.WindowState = 0
Me.Height = 9000 '9930
Me.Width = 12000
Me.Top = 1200
Me.Left = 1800
End If
End If
'Resolución 1024 x 1280
'If h = 1280 And w =1024 Or h = 864 And w = 1152 Then
If h = 1024 And w = 1024 Or h = 1024 And w = 1024 Then
If Me.Width > 12090 Or Me.Width < 12090 Or Me.WindowState = 2 Or
Me.Height > 9930 Or Me.Height < 9930 Then
Me.WindowState = 0
Me.Height = 9000 '9930
Me.Width = 12000
Me.Top = 2800
Me.Left = 3600
End If
End If
