UsePNGImageEncoder()

If CreateImage(0, 33, 33)
	If StartDrawing(ImageOutput(0))
		DrawingMode(#PB_2DDrawing_Transparent)
		Box(0, 0, 33, 33, $FF0000) ; нарисуйте синий прямоугольник и сохраните его как файл изображения ниже
		StopDrawing()
	EndIf
	file$ = SaveFileRequester("Выберите файл для сохранения", GetCurrentDirectory(), "*.png|*.png", 0)
	If file$
		If GetExtensionPart(file$) = ""
			file$ + ".png"  ; добавьте расширение файла, если необходимо
		EndIf
		If SaveImage(0, file$, #PB_ImagePlugin_PNG)
			MessageRequester("Файл создан", file$)
		Else
			MessageRequester("Ошибка", "Не удалось сохранить файл")
		EndIf
	EndIf
	FreeImage(0)
EndIf