请教一下大神：“缩小”的虚线框是怎么做出来的？command里

谢谢

'　按钮【Command1】获得焦点
Private Sub Command1_MouseMove( _
Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Command1.SetFocus
End Sub
'　按钮【Command2】获得焦点
Private Sub Command1_MouseMove( _
Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Command2.SetFocus
End Sub
把这两端程序拷贝到程序文本里面去，当鼠标移动到按钮上，就获得焦点（有了虚线框）。

设置焦点

楼主什么书，方便说下书名吗

25万能在上海买什么？一辆中档车？一块名牌表？
假如你有25万，你会怎么花？
会不会选择买一套精装loft？让自己在上海安个家！
会不会将目光锁定在嘉定？购买一套38—56㎡轨交loft公寓？
4.5米挑高双层2+1房，宜买宜卖宜出租，总价49万起！
上海租房族，也能轻松实现买房梦！
圆梦地址：http://fang.siyongad.com/sh/201503/xcjj/index.html

楼主你的问题我也是醉了