break on
$system = createobject('Kixforms.System')
$form = $system.Form()
$form.Icon = $system.Icon.FromBase64String(String_FormIcon())
$form.Show
while $form.Visible
$_ = execute($system.Application.DoEvents)
loop
function String_FormIcon()
$String_FormIcon = "
Qk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////
////////////////////////////////wMDAwMDAwMDA////////AAAAAAAA////////////
////////////wMDAwMDAAAAAAAAAAAAAwMDA////////AAAAAAAA////////////////////
AAAAAAAAAAAAAAAAAAD/AAAAwMDA////////AAAAAAAA////////////////////AAAAwMDA
////AAAAAAAAAAAA////////////AAAAAAAA////////////////////AAAAwMDA////////
wMDAwMDAwMDA////////AAAAAAAA////////////////////AAAAwMDAwMDAAAAAAAAAAAAA
wMDA////////AAAAAAAA////////////////////AAAAAAAAAAAAAAAAAP8AAAAAwMDA////
////AAAAAAAA////////////////////AAAAwMDAwMDAAAAAAAAAAAAA////////////AAAA
////wMDAwMDAwMDAwMDAAAAAAAAAAAAAwMDA////////////////////////AAAA////AAAA
AAAAAAAAAAAAAAAAAP//AAAAwMDA////////////////////////AAAA////AAAAwMDA////
////AAAAAAAAAAAA////////////////////////////AAAA////AAAAwMDA////////////
////////////////////////////////////AAAAAAAAAAAAAAAAwMDAAAD/AAD/AAD/AAD/
AAD/AAD/AAD/AAD/AAD/AAD/AAD/AAAAAAAA//8AAAAAwMDAAAD/AAD/AAD/AAD/AAD/AAD/
AAD/AAD/AAD/AAD/AAD/AAAAAAAAAAAAAAAAwMDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAA
"
endfunction