Bonjour!

Ma question est très simple, j'ai le code suivant rattaché à un bouton:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Dim x1 As Integer
    Dim x2 As Integer
    Dim y1 As Integer
    Dim y2 As Integer
 
    x1 = 0
    x2 = 100
    y1 = 0
    y2 = 100
 
    picTest.ScaleLeft = x1
    picTest.ScaleWidth = x2 - x1
    picTest.ScaleTop = y1
    picTest.ScaleHeight = y2 - y1
 
    picTest.Scale (x1, y1)-(x2, y2)
J'aimerais savoir pourquoi je ne vois pas apparaître le rectangle en question!

Merci!