التحويل من اي صوره

أختي الصغيرة المبدعة الصغيرة اعتقد انني صممت شيئا قريبا جدا مما تروي عنه

هو مثال مرفق اعتقد انه هو

جربي و انتظر ردك اذا احتجت للمساعدة

convert pic.rar

اخي ان المثال الذي ارفقه لي الاخ شمس فكرته انه ياخذ Copy للصوره ويلصقها في مكان اخر مع تغير اسم وامتداد الصوره وانا لا اريد هذا انا اريد الكود الفعلي للتحويل يارب يكون الاعضاء فهموني وشكرا لك اخوي شمس

يعني مثلا هذا الكود للتحويل من Jpg To Pmb ويوجد فيه خطا لم اعرفه الرجاء المساعده يا خواني

On Error GoTo ErrHandler

    Dim vResult
    Dim sFileName As String
    
    Picture1.Visible = True 'Picture Control Used
    sFileName = Trim(BMPDestinationPath) & ".bmp"
    vResult = Dir(JPEGFilePath & ".jpg")
    If Not vResult = "" Then
        Picture1.Picture = LoadPicture(JPEGFilePath)
        Call SavePicture(Picture1, sFileName)
    End If
    Picture1.Visible = False
    Exit Sub
    
ErrHandler:
    MsgBox Str(Err.Number) + " : " + Err.Description, vbInformation
    Err.Clear

ليش ما حد ساعدني

انا لا اعرف الكود ولكن هناك اداه تقوم بفعل ذلك واليك الرابط

/index.ph...ndpost&p=270451

شكرا لك اخي A7med_prof

وياريت حد يوضحلي الكود الخاص بذلك ................. ,,,,,,,

انا محتاجه له جدا .................