Redimensionner une fenêtre sans bordures

Bonjour à tous,

je développe une appli VB.Net 2005 avec des formulaires sans bordures, de manière à pouvoir faire ma propre fenêtre avec mes propres boutons. En surfant sur le web, j'ai trouvé un code pour pouvoir redimensionner une form borderless, mais ca me génère une erreur au lancement de l'appli.
il s'agit du code ci-dessous, mais ca fonctionne pas pour moi.
Quelqu'un aurait-il une autre solution, sans utiliser des APIs windows à la VB6?

Je vous remercie infiniment.

PrivateConst WS_EX_STATICEDGE AsInteger = &H20000

PrivateConst WS_SIZEBOX AsInteger = &H40000

ProtectedOverridesReadOnlyProperty CreateParams() As System.Windows.Forms.CreateParams

Get

Dim CP As CreateParams

CP =

MyBase.CreateParams

CP.ExStyle = WS_EX_STATICEDGE

CP.Style = WS_SIZEBOX

Return CP

EndGet

EndProperty

EvilGost [;)]

"mais ca me génère une erreur au lancement de l'appli."

quelle erreur ?

"paramètre incorrect"....., ce n'est pas très explicite, ca semble planter après la lecture de la propriété.

En revanche, quand je mets "CP.ExStyle = WS_EX_STATICEDGE" en commentaire, ça passe impec, mais je vois la bordure tout autour de la form.
Pourtant, lorsque je ne mets rien en commentaire, je vois bien l'appli passer 4-5 fois par ce code sans planter, mais après la sixième passe, pouf, ca plante.

EvilGost [;)]

ahhh, ca marche :)
Merci Renfield. Entre tes excellents ocx et ton aide précieuse, je ne peux que te féliciter.
Merci encore.

Par contre, est-ce que tu penses que l'on peut agrandir la zone de redimensionnement (avec le code ci desssu, on a qu'une bordure d'un pixel pour redimensionner), 4-5 pixel serait l'idéal...?

EvilGost [;)]