vb6 program like windows picture and fax viewer..help

[samvb]

happy new year to you all,

i have a program that views pictures. The pictures could have different sizes. Some are bigger than the screen size, some are smaller than that. I want to display the entire content of the picture in image control or picture control like windows pic and fax viewer does:

i tried this but it failed to work:

Option Explicit
Private Sub Form_Load()
Dim scrw As Double
Dim scrh As Double
Dim imgw As Double
Dim imgh As Double

scrw = Screen.Width / Screen.TwipsPerPixelX
scrh = Screen.Height / Screen.TwipsPerPixelY

imgw = Image1.Width / 15
imgh = Image1.Height / 15

MsgBox Image1.Width

If imgw > scrw Then
Image1.Width = Screen.Width

Me.Move 0, 0
Else
Me.Width = Image1.Width
End If

If imgh > scrh Then
Image1.Height = Screen.Height

Me.Move 0, 0
Else
Me.Height = Image1.Height
End If

Me.Width = Image1.Width
Me.Height = Image1.Height
Me.Top = 0
Me.Left = 0
End Sub
Private Sub Image1_Click()
Unload Me
End Sub

NB: picture is added to image1 from database application.

[debasisdas]

your code never refers to the source of the image !

[samvb]

what do you mean? please clarify a lil bit.