[RESOLVED] save picture as bitmap or jpeg

[Redangel]

i am try to save a picturefile as a bitmap or a jpeg but cannot seem to figure out how to do this can any one help!!! i tryed this

Private Sub cmdSave_Click()
'Call for the common dialog control to show the save menue
Dim myPic As String
    cdbFile.ShowSave
    myPic = frmDraw.Image
    Open myPic For Output As #1.bmp
        Print #1, myPic
        Close #1
End Sub

thanks in advance RedAngel