Hello,

I am trying to:

1) minimize all windows
2) open two new explorer windows
3) tile them vertically

If I comment out code, I can do each one indivually and they all work, but when I put them all together I cannot get the new windows to tile vertically. Here is my code:

Private Sub Form_Load()
Me.Hide

Dim oshell As Shell
Set oshell = New Shell

oshell.MinimizeAll

Shell "explorer.exe", vbNormalNoFocus
Shell "explorer.exe", vbNormalNoFocus

oshell.TileVertically

End

End Sub


Any suggestions? This is driving me crazy!?!?!?