VBS - show modeless Form

I need to create a modeless Form or somethig else, to show that something happens.
(MyForm.Show modless
MyForm.Caption = "Doing something, please wait."
.
.
.
MyForm.Hide)
in this way. How can I do this?
please Help.

option Explicit

private Sub Form_Load()
me.Show
Dialog.Show vbModeless
dosomething
unload Dialog
End Sub
private Sub dosomething()
Dim i as Integer
for i = 1 to 10000
Label1.Caption = i
DoEvents
next i
End Sub