主题：拍照尺寸问题

 可以

Dim c As new camera

Dim dr As DataRow = Tables("会员表").Current.DataRow
c.capture() '开始照相

If c.image IsNot Nothing Then '照相成功
    Dim bmp As new bitmap(c.image, 50, 50)
    bmp.save(ProjectPath & "Attachments\" &  dr("会员姓名") & ".png")
    bmp.Dispose
    dr("会员照片") = dr("会员姓名") & ".png"
End If