مطالبی برای شماها

Private Sub Command1_Click()
Call SaveSetting("name", "Setting", "value", Text1.Text)
Call SaveSetting("family", "Setting", "value", Text2.Text)
End Sub

Private Sub Command2_Click()
Call DeleteSetting("family")
Call DeleteSetting("name")
End Sub

Private Sub Form_Load()
Dim n, f As String
n = GetSetting("name", "Setting", "value", "nothing")
f = GetSetting("family", "Setting", "value", "nothing")
If n = "nothing" And f = "nothing" Then
MsgBox ("مشخصات شما در سيستم ثبت نيست لطفاً وارد نماييد")
Else
Label1.Caption = n + " " + f
End If
End Sub