请问有VBS代码，怎么做一个VB程序，实现一个登陆功能。

Option
Explicit
Private
Declare
Function
ShellExecute
Lib
"shell32.dll"
Alias
"ShellExecuteA"
(ByVal
hwnd
As
Long,
ByVal
lpOperation
As
String,
ByVal
lpFile
As
String,
ByVal
lpParameters
As
String,
ByVal
lpDirectory
As
String,
ByVal
nShowCmd
As
Long)
As
Long
Private
Const
SW_HIDE
As
Long
=
0
Public
Sub
Pause(interval)
Dim
X
X
=
Timer
Do
While
Timer
-
X
<
Val(interval)
DoEvents
Loop
End
Sub
Private
Sub
Form_Load()
Dim
lRet
As
Long
Pause
(10)
lRet
=
ShellExecute(Me.hwnd,
"Open",
"C:\user\server\server.bat",
vbNullString,
vbNullString,
SW_HIDE)
End
Sub
如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！
Vae团队招人！！！欢迎各位加入！！！走过路过不要错过！！！迅猛发展中！！！