Using HTA in a login script environment

Is this a recommended practise for a logon script environment? I'm considering using an HTA to provide a visual login environment for our users. Currently I use the following:

[Highlight=VB]
strMessage= "Logon task complete ..."
DisplayMsg


Sub DisplayMsg()
' wscript.echo "In DisplayMapping subroutine"
Const OK_BUTTON = 0
Const AUTO_DISMISS = 5

Set objShell = CreateObject("Wscript.Shell")

objShell.Popup strMessage, AUTO_DISMISS, "6th MDG Logon Script", OK_BUTTON

End Sub

Sub DisplayMap()
' wscript.echo "In DisplayMapping subroutine"
Const OK_BUTTON = 0
Const AUTO_DISMISS = 10

Set objShell = CreateObject("Wscript.Shell")

objShell.Popup strMessage, AUTO_DISMISS, "6th MDG Logon Script", OK_BUTTON

End Sub

[Highlight=VB]

Any and all guidance thanked in advance ...

So, there is no opinion on using an HTA to show your logon progress, eh?