Source Code VB

Private Sub Check1_Click()
If Check1.Value = 1 Then
lblDomainName.Visible = True
txtDomainName.Visible = True
End If
If Check1.Value = 0 Then
lblDomainName.Visible = False
txtDomainName.Visible = False
End If
End Sub

Private Sub cmdGenerate_Click()
Dim responce
        Dim i As Integer
If Check1.Value = 1 Then
responce = MsgBox(”Do you want to create ” & txtDomainName.Text & ” DOMAIN user”, vbYesNo)
    If responce = vbYes Then

        For i = Val(txtUserStart.Text) To Val(txtUserEnd.Text)
            Shell “net user ” & txtUserPrefix & Format(i, “0000″) & txtUserPostfix & ” ” & txtPassPrefix & Format(i, “0000″) & txtPassPostfix & ” /ADD ” & txtDomainName.Text & ” /DOMAIN”, vbHide
        Next i
    End If
Else
responce = MsgBox(”Do you want to create LOCAL user”, vbYesNo)
    If responce = vbYes Then

        For i = Val(txtUserStart.Text) To Val(txtUserEnd.Text)
            Shell “net user ” & txtUserPrefix & Format(i, “0000″) & txtUserPostfix & ” ” & txtPassPrefix & Format(i, “0000″) & txtPassPostfix & ” /ADD”, vbHide
        Next i
    End If
End If
End Sub

Private Sub Label11_Click()

End Sub

Private Sub txtUserEnd_Change()
txtPassEnd.Text = txtUserEnd.Text
End Sub

Private Sub txtUserStart_Change()
txtPassStart.Text = txtUserStart.Text
End Sub