如何在PictureBox控件中画一个象按钮获得焦点的虚框？

Question

Option ExplicitPrivate Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function DrawFocusRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As LongPrivate Sub Command1_Click()    Dim R As RECT
    
    R.Left = 50
    R.Right = 200
    R.Top = 50
    R.Bottom = 200
    
    DrawFocusRect Picture1.hdc, R
    
End SubPrivate Sub Form_Load()
    
    Picture1.DrawMode = vbPixelsEnd Sub