刚学会的，BMP转JPG的我感觉的最简单的方法了

'窗体上一个按钮，一个imgedit控件
Private Sub Command1_Click()
 If (ImgEdit1.IsClipboardDataAvailable And ImgEdit1.ImageDisplayed) Then
 '从剪贴板粘贴图象，其参数为Imgedit的显示区域的起始坐标
 ImgEdit1.ClipboardPaste 0, 0
 ImgEdit1.CompletePaste
 End If
 '保存图片为jpg格式
 ImgEdit1.SaveAs App.Path & "\" & "mytest.jpg", wiFileTypeJPG, , 6
End Sub

Private Sub Form_Load()
 ImgEdit1.Image = App.Path & "\" & "06.jpg"'先让ImgEdit随便显示一幅图片，不然后面的语句执行时会发生错误
 ImgEdit1.Display
End Sub