manu o negosio de salvar não da scerto olha: Private Sub Image4_Click() Com.FileName = "" 'Definir o filtro de tipos de arquivos Com.Filter = "Arquivo BMP |*.bmp" 'Definir o diretório inicial Com.InitDir = "C:\Windows" Com.ShowSave If Com.FileName = "" Then MsgBox "Nenhum Arquivo Exportado!" Else MsgBox "O Arquivo Exportado é : " & Com.FileName 'Salva arquivo com nome que você criou na COM SavePicture Picture1.Image, (Com.FileName) End If End Sub e pra eu fasse para que o texto inserido na imagem seja da cor escolhida na palheta. oke tem de errado? Private Sub Image3_Click() Com.ShowColor Picture1.Print "teste" Picture1.Print Color = (Com.FileName) End Sub