El tema podría funcionar con algo como esto.
Saludos
Código:
Dim n As Integer
Dim b As Integer
Dim x As Integer
For n = 0 To Screens.Count - 1
If Screens[n].AvailableWidth > b Then
b = Screens[n].AvailableWidth
x = n
Endif
Next
Me.x = Screens[x].AvailableX
Me.y = Screens[x].AvailableYÚltima modificación: 08-10-2020, 23:51 por tincho.
1 Saludo.