
' Cette exemple dessinera une ligne rouge sur le formulaire. Pour essayer cette exemple,
' démarrer un nouveau projet graphique et placer un bouton sur le formulaire.

PUBLIC SUB Button1_Click()
Draw.Begin(ME)
Draw.LineWidth = 20
Draw.ForeColor = Color.Red
Draw.Line(50, 100, 200, 150)
Draw.End
END


' Cette exemple dessinera un 'X' en blanc. Pour essayer cette exemple,
' démarrer un nouveau projet graphique et placer un bouton sur le formulaire.

PUBLIC SUB Button1_Click()
Draw.Begin(ME)
Draw.LineWidth = 10
Draw.ForeColor = &hFFFFFF
Draw.Line(50, 50, 200, 200)
Draw.Line(50, 200, 200, 50)
Draw.End
END


' Cette exemple dessinera un modèle de lignes rouge et jaune alternatif sur
' le formulaire. Pour essayer cette exemple, démarrer un nouveau projet graphique
' et placer un bouton sur le formulaire.

PUBLIC SUB Button1_Click()

DIM i, Bottom AS Integer
Bottom = ME.Height

Draw.Begin(ME)
Draw.LineWidth = 4

FOR i = 0 TO Bottom STEP 8
Draw.ForeColor = Color.Yellow
Draw.Line(0, i, ME.Width, i)
Draw.ForeColor = Color.Red
Draw.Line(0, i + 4, ME.Width, i + 4)
NEXT
Draw.End

END

}