حفظ متغير ؟؟؟؟؟

طبعاً عن طريق تخزين القيم المدخله من قبل المستخدم في ملف :

افتح مشروع جديد وضع عدد اثنين TEXT

وعدد اثنين Command

 
Private Sub Form_Load()
        Me.Command1.Caption = "احضر كلمة السر"
        Me.Command2.Caption = "ضع كلمة السر"
        Me.Text1.Text = ""
        Me.Text2.Text = ""
End Sub

Private Sub Command1_Click()
       Open App.Path & "/TEST.txt" For Binary As #1
              Get #1, 1, TTT
              Text2.Text = TTT
        Close #1
End Sub

Private Sub Command2_Click()
        Open App.Path & "/TEST.txt" For Binary As #1
                Tim = Text1.Text
                Put #1, 1, Tim
        Close #1
End Sub

بعد ان يعمل البرنامج جرب وضع اي قيمة في المربع الاول واضغط زر ضع كلمة السر ثم اضغط بعد ذلك زر احضار كلمة السر . حيث يقوم البرنامج بتخزين الكلمة المدخلة في الملف test.txt ويحضرها مره اخرى .

اخوك