Declare SplashWindow%

Proc SplashShow
        WindowStyle $F0
        LoadSizedBmp (PicPfad$ + "\Splash.bmp"),0,0-0,0;0
        GetLString 1
        SplashWindow% = @CreateWindow(%hwnd,@$(0),@CenterX(%BmpX),@CenterY(%BmpY),%BmpX,%BmpY)

        StartPaint SplashWindow%
                LoadBmp (PicPfad$ + "\Splash.bmp"),0,0;0
        EndPaint
EndProc

Proc SplashDestroy
        @DestroyWindow(SplashWindow%)
EndProc

Proc SplashWait
        Declare Quit%

        SplashShow
        Quit% = @CreateButton(SplashWindow%,"Ok",265,210,50,25)

        WhileNot @GetFocus(Quit%)
                WaitInput
        Wend

        SplashDestroy
        RePaint
EndProc