سلام با این سورس بدون نیاز به پسورد قبلی پسورد xp رو عوض می کنیم
در Text1 نام یوزر نیم ویندوز را تایپ کنید
Private Sub Command1_Click()
Shell "net user " & Text1.Text & " /delete"
End sub
توی این لینک این برنامه رو گذاشتم
http://www.4shared.com/file/11093700...5/chenger.html