' Modul1
Public Declare Sub KonvBild Lib "janGraphics" ( _
  ByVal Infile As String, ByVal Outfile As String, ByVal fixWidth As Long, _
  ByVal fixHeight As Long, ByVal TransparentGif As Boolean, _
  ByVal JpegQuality As Long)
 
'Form1
Private Sub Command1_Click()
  Dim sMsg As String
  sMsg = KonvBild ("c:\bild.bmp", "c:\bild.jpg", 0, 0, False, 100)
End Sub