<code>Private Sub cmdTileHorizontal_Click() 
  Dim objShell As Shell 
 
  Set objShell = New Shell
  objShell.TileHorizontally 
  <font color=green>' Fenster nebeneinander anordnen </font>
End Sub</code>

<code>Option Explicit
Dim objShell As New Shell 
 
Private Sub Form_Load()
  objShell.minimizeall <font color=green>' Minimiert alle fenster</font>
  objShell.CascadeWindows 
End Sub
 
Private Sub cmdTileHorizontal_Click() 
  objShell.TileHorizontally 
  <font color=green>' Fenster nebeneinander anordnen </font>
End Sub</code>