Public lIsOk As Boolean
Sub Main
lIsOk = False
oReg = CreateObject("WScript.Shell")
sLogin = oReg.Readkey("HKCU\Mi Programa\Login")
If sLogin = ""
wLogin.Show 1
' en el boton aceptar del login haces esto
' oReg.CreateKey "HKCU\Mi Programa\Login", txtLogin.Text
' oReg.CreateKey "HKCU\Mi Programa\Password", txtPassword.Text
' lIsOk = True
Else
lIsOk = True
EndIf
If lIsOk Then
wMain.Show 1
EndIf
End Sub