i downloaded some help for vb6 and the shrink code was in it but not the fade sorry. here is the grow shrink anyway:
'Shrink the form
'Decrease the form height by 100 twips
frmFormFun.Height = frmFormFun.Height - 100
'Decrease the form width by 100 twips
frmFormFun.Width = frmFormFun.Width - 100
End Sub