hola buenas quiero hacer una aplicacion que cambie la ip he puesto 2 textbox el control winsock y commandbutton he  hecho lo siguiente pero no me cambia la ip solo se desconecta y se vuelve a conectar sin cambiarla 

Private Sub Command1_Click()
Shell ("ipconfig /flushdns")
Shell ("ipconfig /release")
Shell ("ipconfig /renew")
txtipcambia.Text = ws.LocalIP
End Sub

Private Sub Form_Load()
txtmiip.Text = ws.LocalIP
End Sub

mi ip no es estatica ni estoy detras de un router..es dinamica 

No siempre hay que tirar a hacer las cosas por lo más facil...