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

with thisform.Calc1
	.EditHeight = 32
	.ButtonHeight = 32
	.ButtonWidth = 32
endwith
1:
How can I change the button's appearance

with thisform.Calc1
	var_s = "gBHJJGHA5MIgAEIe4AAAFhyFiC9fa9bDbbABjEZjUbjkdj0fkEhkUjkklk0nlEplUrlktl0vmExmUzmk1m03nE5nU7nkihgAEL5AgBhj/AAsn8JpRABCZAD/BIcJCwUD"
	var_s = var_s + "BQYIAIILDIWChYaHAACEh8JCxMTERIVGYyXiIeAfQCPEBDRQMbJRUBCRoaHIaHiJaSiYiSGBjZScBKTMpLRAdNreNioWSgZydBZ7CT8BJUdBAUQ7RoODrJKjkJaaKCjJ"
	var_s = var_s + "SdJQVFJKAAlVq2KjqCIoYinHy9HTkVT1FTYUJiPKeHqaOzjLSTNqDXztDSXNhcAJcdKKZo7GCAb6/QADf6lJS4GDCQAAHcBA"
	.PictureUp = var_s
	var_s1 = "gBHJJGHA5MIgAEIe4AAAFhyFiDYiQBikVi0XjEZjUbjkdj0fkEhkUjkklk0nlEplUrlktl0vmExmUzmk1m03nEhhgAEL5AgBhj/AAsncJoxABCCAD/BIcJCwUDBQYIAI"
	var_s1 = var_s1 + "gLhICBAQCEBgjHSEDBxcJERYAGRqbjIKKjYiKCwfDxUBByUjISQoKaqUi4eQfZKRFoFLw0fBycrMQQ1KreNgYablv4dQZyfjZWaoaKjEBzSxUZQzczOQJMS4SQraeapZ"
	var_s1 = var_s1 + "iqKavHTNdQSFZLTZcUYmBrreorJSrAoDVBdZa2dpaUhwMYGAgAHcBA=="
	.PictureDown = var_s1
	.ButtonHeight = 24
	.ButtonWidth = 24
endwith