2:
How can I enlarge the control's edit area

<BODY onload="Init()">
<OBJECT CLASSID="clsid:74B7322B-D54B-47AD-A891-AC60B02EE192" id="Calc1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Calc1
		.EditHeight = 32
		.ButtonHeight = 32
		.ButtonWidth = 32
	End With
End Function
</SCRIPT>
</BODY>

1:
How can I change the button's appearance

<BODY onload="Init()">
<OBJECT CLASSID="clsid:74B7322B-D54B-47AD-A891-AC60B02EE192" id="Calc1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Calc1
		.PictureUp = "gBHJJGHA5MIgAEIe4AAAFhyFiC9fa9bDbbABjEZjUbjkdj0fkEhkUjkklk0nlEplUrlktl0vmExmUzmk1m03nE5nU7nkihgAEL5AgBhj/AAsn8JpRABCZAD/BIcJCwU" & _
	"DBQYIAIILDIWChYaHAACEh8JCxMTERIVGYyXiIeAfQCPEBDRQMbJRUBCRoaHIaHiJaSiYiSGBjZScBKTMpLRAdNreNioWSgZydBZ7CT8BJUdBAUQ7RoODrJKjkJaaKCj" & _
	"JSdJQVFJKAAlVq2KjqCIoYinHy9HTkVT1FTYUJiPKeHqaOzjLSTNqDXztDSXNhcAJcdKKZo7GCAb6/QADf6lJS4GDCQAAHcBA"
		.PictureDown = "gBHJJGHA5MIgAEIe4AAAFhyFiDYiQBikVi0XjEZjUbjkdj0fkEhkUjkklk0nlEplUrlktl0vmExmUzmk1m03nEhhgAEL5AgBhj/AAsncJoxABCCAD/BIcJCwUDBQYIA" & _
	"IgLhICBAQCEBgjHSEDBxcJERYAGRqbjIKKjYiKCwfDxUBByUjISQoKaqUi4eQfZKRFoFLw0fBycrMQQ1KreNgYablv4dQZyfjZWaoaKjEBzSxUZQzczOQJMS4SQraeap" & _
	"ZiqKavHTNdQSFZLTZcUYmBrreorJSrAoDVBdZa2dpaUhwMYGAgAHcBA=="
		.ButtonHeight = 24
		.ButtonWidth = 24
	End With
End Function
</SCRIPT>
</BODY>