Ok faça assim:
Private Sub Command1_Click()
SavePicture Picture1, "c:Caminho_do_arquivo.bmp"
End Sub
Este comando só salva no formato bitmap(bmp). Bom na verdade ele salva em outros formatos mas é o seguinte... Se vc está carregando um arquivo tipo jpeg q tem 23 KB e salva por meio deste comando ele continua sendo "arquivo.jpeg" só q com 320KB por exemplo. Ok??
espero q te ajude
t+