Följande ger en fyrkant 10x30 mm. Men hur gör man för att få en 10x30 mm fylld box?
DrawWidth = 1 vad motsvarar detta i mm??


Picture1.ScaleMode = 6 'mm
Picture1.DrawWidth = 1
Picture1.Line (50, 50)-(60, 80), RGB(0, 255, 0), B 'BOX!

Lite konstig fråga !
Om du presenterar din Box på en 14 tum skärm eller 19 tum skärm så blir det klart olika.
DrawWidth = 1 betyder 1 = 1 pixel , hur många pixel/mm går det på din skärm ?

Menar du kanske när du printar ut, för då kommer saken i ett annat läge.

Nej, inte print i detta skedet. Ska tillverka ett stapeldiagram (utan MSChart)
Med följande ritas en fylld svart box med en grön tunn kantlinje, men kan resultat se annorlunda ut på någon annans skärm menar du... i så fall får man kanske tänka om, igen...

    Picture1.ScaleMode = 6    'mm
    dw = 20
    Picture1.DrawWidth = dw  'pixlar [37,8 pixlar/cm  eller?]
    mm = (dw / 3.78) / 2      'Halva linjetjockleken
    Picture1.Line (50 + mm, 50 + mm)-(60 - mm, 80 - mm), RGB(0, 0, 0), B
    
    Picture1.DrawWidth = 1
    Picture1.Line (50, 50)-(60, 80), RGB(0, 255, 0), B

Nä frågan är inte specielt relevant,du får din gröna linje runt boxen.
Kör DrawWidth = 2 så blir det bra på alla skärmar, men inte i mm.

Ett annat trix som jag tycker är mycket bättre. Använd en tom Label som
du sätter BackColor på och ändra dess Height 1 pixel = 15 Twips (normalt)
sätt borderStyle till = 1 (FixedSingle) Apperence 3-D eller Flat efter behag

Kolla Termometer.vbp i mitt projekt Programarkivet:Temperatur med SMT 160-30

    Picture1.ScaleMode = 6 'mm
    Picture1.DrawWidth = 1
    Picture1.Line (50, 50)-(60, 80), RGB(0, 255, 0), BF
    Picture1.Line (50, 50)-(60, 80), RGB(0, 0, 0), B

Om BF står för vad jag tror så blir jag mycket nöjd!
Ska testa när jag kommer tillbaks på jobbet imorgon.
Tack till er båda!
/bn

PS. vilken .ScaleMode är pixlar, 1? Blir kanske lättare att använda om man ska rita saker på skärmen...