Same deal, adjust SetTexCoord arguments until it looks ok:
Code:
local myButton = CreateFrame("Button", nil, UIParent)
myButton:SetNormalAtlas("QuestCollapse-Show-Up")
myButton:SetPushedTexture("Interface\\Buttons\\UI-SpellbookIcon-NextPage-Down")
myButton:GetPushedTexture():SetTexCoord(0.1, 0.9, 0.1, 0.9)
myButton:SetHighlightTexture("Interface\\Buttons\\UI-Common-MouseHilight", "ADD")
myButton:GetHighlightTexture():SetTexCoord(0.15, 0.85, 0.15, 0.85)
myButton:SetSize(25, 25)