Ridimensionare la finestra del DialogBox da codice

Per ridimensionare la finestra del "DialogBox" da codice al momento della sua apertura, utilizzeremo le risorse delle Classi "DesktopWatcher" e "DesktopWindows".

Vediamo di seguito un codice commentato, nel quale la finestra del "DialogBox" sarà massimizzata a pieno schermo:

Private wa As DesktopWatcher
Private dw As DesktopWindow


Public Sub Form_Open()

' Osserva tutte le finestre, presenti e future, sulla Scrivania:
 wa = New DesktopWatcher As "DWatch"

End

Public Sub Button1_Click()

 With Dialog
' Il "Titolo" della finestra di Dialogo deve essere certo e univoco:
   .Title = "Abcde"
   If .OpenFile() Then Return
 End With
  
End

Public Sub DWatch_Windows()  ' Se la lista delle finestre sulla Scrivania è cambiata...
  
' ...allora controlla se la finestra, avente Titolo "Abcde", si è aperta:
 If Desktop.FindWindow("Abcde", Null, Null).Count > 0 Then 
' In caso affermativo, la finestra di Dialogo viene ridimensionata (in questo caso a schermo pieno):
   With dw = New DesktopWindow(Desktop.FindWindow("Abcde", Null, Null)[0])
     .Resize(Screen.AvailableWidth, Screen.AvailableHeight)
   End With
 Endif 
  
End