Screen Black after Minimize

[George]

I have inserted a macro so you can minimize the PowerPoint 2003
presentation.

I have used several differant codes to see if it was the code and it
makes the screen black anyway you write the code. I will post the two
different macros that will work in making the PowerPoint minimize
below. I am running XP Pro SP2 and Office 2003 w/ the SP. Any help
would be appreciated.

Thanks,

George

MACRO 1:
Sub Minimize()
Application.Run "PPShortCuts.ppa!MinimizeAllSlideShows"
End Sub

MACRO 2:
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (
_
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Public Const WM_SYSCOMMAND = &H112&
Public Const SC_MINIMIZE = &HF020&


Sub MinimizeSlideShow()
Dim WH As Long


WH = FindWindow("screenClass", vbNullString)
If WH <> 0 Then
SendMessage WH, WM_SYSCOMMAND, SC_MINIMIZE, 0
End If
End Sub