Sub openImg
Dim name_size As String
Dim bmp As Bitmap
bmp.Initialize(folder, filename)
If wV.Height-bmp.Height>(wV.Width-bmp.Width)*wV.Height/wV.Width Then
name_size=" style='width: " & (wV.Width/GetDeviceLayoutValues.Scale) & "px"
Else
name_size=" style='height: " & (wV.Height/GetDeviceLayoutValues.Scale) & "px"
End If
wV.LoadHtml("<html><body style='margin: 0px; padding: 0px'><div align='center'><img src='" & folder & filename & "'" & name_size &"'/></div></body></html>")
wV.Color=Colors.LightGray
End Sub