怎样做登录页

Question

加一个无边框的窗体，将启动窗体设为Sub Main() ，然后在Sub Main()函数里先显示这个窗体，待你的初始化工作完了之后，将这个窗体Unload，这就可以了。

Answer 1

我用的vb6.0企业版,在工程里添加窗体->展示屏幕 
在模块里启动这个窗体.

Answer 2

其实我目的是想在datareport显示前显示一个窗体
等datareport装完之后才把窗本消去的但不太好
_______________________________________________
在formmain中有一个command1
sub command1_click()
   me.hide
   form1.show 1
   form1.refresh
   datareport1.refrsh
   datareport1.show1
end sub
————————————
其实我的form1中有一些动态文字的，
上面语句中form1.show 1 中有1不可以
去1之后，form1中的动态文字不能动态了
有办法解决吗