关于自定义控件的我问题

Question

试试 这个:
===================================================================
Private Sub UserControl_Paint()
    Line (0, 0)-(ScaleWidth, ScaleHeight), UserControl.ForeColor, BFEnd SubPrivate Sub UserControl_Resize()
    UserControl.AutoRedraw = True
    Line (0, 0)-(ScaleWidth, ScaleHeight), vbWhite, BF
    UserControl.FillColor = vbBlack
    UserControl.FillStyle = 0
    Circle (ScaleWidth / 2, ScaleHeight / 2), (ScaleWidth + ScaleHeight) /
4, vbBlack
    UserControl.MaskColor = vbBlack                           'Black =
transparent
    Set UserControl.MaskPicture = UserControl.Image     'Save mask
    UserControl.AutoRedraw = False
End Sub

Answer 1

谢谢 两位啦！！  ：）