Voici un module capable de générer une porte des étoiles styles StraGate "SG1" ou "Atlantis"
Voila les options : X_Centre As Long, 'Donne la position du centre (Coordoné X)
Y_Centre As Long, 'Donne la position du centre (Coordoné X)
Rayon As Long, 'Donne le rayon du centre
DSGColor As Long, 'Donne la couleur des cercles
DPicture As PictureBox, 'La PictureBox dans laquelles on dessine la stargate
Optional DCHColor = &HC0C0C0, 'Donne la couleur les chevrons
Optional DAngle = 5, 'l'Angle pour fair tourner les "cases à glyph"
Optional Engage As Integer = 0, 'Engage donne le nombre de chevron engagé
Optional Non_Eng = &H808000, 'Donne la couleur de l'interieur les chevrons non engagé
Optional Eng = &HFFFF80 'Donne la couleur de l'interieur les chevrons engagé
Et bien d'autre à découvrir ...