VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3150
   ClientLeft      =   60
   ClientTop       =   390
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3150
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "ConvertBMP2JPG"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   2775
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ConvertBMP2JPG Lib "bmp2jpg" ( _
    ByVal InpBMP As String, _
    ByVal OutJPG As String, _
    ByVal lngQA As Long, _
    ByVal jpg2000F As Long _
    ) As Long


Private Sub Command1_Click()
    
    Inp_BMPFileName = App.Path + "\TestBW.bmp"
    Out_JPGFileName = App.Path + "\Test24Bit.jpg"
    Quality = 5 'from 0 to 10
    jpg2000Format = False
    
    ChDir App.Path
    
    ret = ConvertBMP2JPG(Inp_BMPFileName, Out_JPGFileName, Quality, jpg2000Format)
    
    If ret Then
        MsgBox "All Right!"
    Else
        MsgBox "Ahi, ahi, ahi..."
    End If

End Sub

Private Sub Form_Load()

End Sub