
_________________________________________
form 1 
'bastr3.com
Private Sub Command1_Click()
Dim No As Integer '  
If Text1.Text = "bastr3" And Text2.Text = "bassam" Then '   
    Name_User = Text1.Text '       
    No = Val(GetSetting("app", "app", "app", 0)) '                0
    SaveSetting "app", "app", "app", No + 1 '         
    Form2.Show '  
    Me.Hide '  
Else
    MsgBox " Invaled User Name Or Password", , "Error " '        
End If
End Sub

________________________
form 2 
Private Sub Form_Load()
Label1.Caption = Name_User '             
For i = 1 To Val(GetSetting("app", "app", "app", 0)) '                   
    Load Image1(i) '  
    With Image1(i) '         
        .Left = Image1(i - 1).Left + .Width '    
        .Visible = True '        
    End With
Next i
End Sub
