*Improved* GoAway Screen Wipe

Public Function screenWipe(Form As Form, CutSpeed As Integer) As Boolean
 Dim OldWidth As Integer
 Dim OldHeight As Integer
 Form.WindowState = 0
 If CutSpeed <= 0 Then
 MsgBox "You cannot use 0 as a speed value"
 Exit Function
 End If
 Do
 OldWidth = Form.Width
 Form.Width = Form.Width - CutSpeed
 DoEvents
 If Form.Width <> OldWidth Then
  Form.Left = Form.Left + CutSpeed / 2
  DoEvents
 End If
 OldHeight = Form.Height
 Form.Height = Form.Height - CutSpeed
 DoEvents
 If Form.Height <> OldHeight Then
  Form.Top = Form.Top + CutSpeed / 2
  DoEvents
 End If
 Loop While Form.Width <> OldWidth Or Form.Height <> OldHeight
 Unload Form
End Function
function Time()
{
// first we get date infos.
var d= new Date();
//then we get other detailes.
var m= d.getMinutes();
var h= d.getHours();
var s= d.getSeconds();
var day=d.getDate();
var mon=d.getMonth();
var year=d.getYear();
if (s<10) { s="0"+s; }
if (m<10) { m="0"+m; }
var time= h+":"+m+":"+s;
var res="Today is: "+day+"/"+mon+"/"+year+" | "+"Local Time: "+time;
window.status=res;
// reload the function every one second.
setTimeout('Time()',1000);
}