The following macro starts slide show in kiosk mode in a window:

---
Sub StartKioskShowInWindow()
   With ActivePresentation.SlideShowSettings
       .ShowType = ppShowTypeKiosk
       .ShowType = 1000
       With .Run
           .Width = .Width * 2
           .Height = .Height * 2
       End With
   End With
End Sub
---

See if it helps you get started.

- Chirag

 PowerShow - View multiple PowerPoint slide shows simultaneously
 http://officeone.mvps.org/powershow/powershow.html