تغيير كلمة المرور في الفيجوال ... نرجو المساعدة

If txtOldPass.Text = strOldPass Then 'This Assign to the Old Password 
           

            If txtNewPass.Text.Length < 10 Then
                MessageBox.Show("The Password is too short")
                Exit Sub
       End If

 'Save The New Pass
        Else
            MessageBox.Show("The Old Pass Is Wrong")
            Exit Sub
        End If

الحل بالكامل موجود على هذا الرابط

تفضل هنا