ImagePixell

Private Sub Form_Load()
Dim NumPixelsComp As Long, NumPixelsOriz As Long, NumPixelsVert As Long
NumPixelsComp = (Picture1.ScaleWidth * Picture1.ScaleHeight)
Label1.Caption = Picture1.ScaleWidth & " Numero dei Pixels in orizzontale"
Label2.Caption = Picture1.ScaleHeight & " Numero dei Pixels in verticale"
Label3.Caption = NumPixelsComp & " Numero dei Pixels complessivi"
End Sub