انجمن در حال تغییر سرور است ، لطفا تا اطلاع ثانوی فقط خواننده باشید

Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.Enabled = True
Text1.Enabled = True
Else
Label1.Enabled = False
Text1.Enabled = False
End If
End Sub

Private Sub Cmd_Cancel_Click()
Unload Me
End Sub

Private Sub Cmd_OK_Click()
If Check1.Value = 1 Then
If Trim(Text1) = "" Then
MsgBox " áØÝÇ ˜áãå ÚÈæÑ ãæÑÏ äÙÑ ÎæÏ ÑÇ æÇÑÏ äãÇííÏ ", vbExclamation, "Warninng !"
Text1.SetFocus
Exit Sub
End If
SaveSetting "Media Soft", "Ajans Yar", "Password", Trim(Text1)
End If
Unload Me
End Sub

Private Sub Form_Load()
A = GetSetting("Media Soft", "Ajans Yar", "Password")
Text1 = A
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Call Cmd_OK_Click
End If
End Sub