' width of image in millimeters (15 cm)
Dim width As Integer = 15 * 10
' height of image in millimeters (20 cm)
Dim height As Integer = 20 * 10
' resolution of image
Dim resolution As Vintasoft.Imaging.Resolution = Vintasoft.Imaging.ImagingEnvironment.ScreenResolution
Dim imageSize As Vintasoft.Imaging.ImageSize = Vintasoft.Imaging.ImageSize.FromMillimeters(width, height, resolution)
' create an image width size 15x20 cm
        ' ...
Using image As New Vintasoft.Imaging.VintasoftImage(imageSize)
End Using

// width of image in millimeters (15 cm)
int width = 15 * 10;
// height of image in millimeters (20 cm)
int height = 20 * 10;
// resolution of image
Vintasoft.Imaging.Resolution resolution = 
    Vintasoft.Imaging.ImagingEnvironment.ScreenResolution;
Vintasoft.Imaging.ImageSize imageSize = 
    Vintasoft.Imaging.ImageSize.FromMillimeters(width, height, resolution);
// create an image width size 15x20 cm
using (Vintasoft.Imaging.VintasoftImage image = 
    new Vintasoft.Imaging.VintasoftImage(imageSize))
{
    // ...
}