Bien vu, allez voir sur le site de la banque postal

ca ne marche qu'en VB6?

ah? je croyais que je les avais enlévé..autant pour moi
en fait je devais mettre plutot: "...\PhenBat\----"

réinventer la roue permet de la comprendre et de l'améliorer. C'est bien

j'ai u le prblème, en fait le calcul se fait de 0 à 255, il suffit de convertir la valeur en pourcent. Je l'ai fait et ca marche!!

je trouve aussi certains un peu écoeurant sur code sources, la tolérance ne s'apprend pas dans les école et c'est bien dommage...
ceci dit, j'ia bien aimé le design de la form principal...

ben y en a peut-être qui savent pas....

ben c pareil, sauf que ca ce fait en deux lignes au lieux de autant que dans le code donné ci dessu

   Dim objSocket

   Set objSocket = CreateObject("MSWinsock.Winsock")
   msgbox ("Votre Adresse IP est:" & objSocket.localip)

ca va quand même plus vite non?

je vois pas bien l'intérêt dans le sens où un script VBS le ferais en deux lignes de code, il suffit alors d'appeller le script avec un shell et le tour est joué

Zeroc00l, ca marche po ton Label1.Visible=Not(Label.Visible)...