用户控件的制作

Question

由于设计需要 ，现在要完成来个用户控件的制作
第一个是 动画按钮  ，由俩个label组成的 ，利用鼠标的移动事件达到它们的颜色的不同 
Private Sub Label20_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label20.ForeColor = &HFFFF&
End SubPrivate Sub Label19_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label20.ForeColor = &HC0C0&
End Sub  
所用的事件还需要click   另一个是类似进度条的东西 ，它们是液晶动态条 ，液晶条的外框以及，液晶体的长度可以通过程序来改变。
它们有颜色属性 这是必须的， 程序力规定 液晶体的长度 达框架某一长度的比例时 会有特定的颜色。

Answer 1

第一个你不是都快做好了吗？第二个就用PICTUREBOX来作基础，不难啊。

Answer 2

我是没讲清楚，创建ACTIVEX 控件，然后组合现成的那几个控件就可以了。

Answer 3

三 液晶动态条控件设计
需求：
1． 外壳长度可以变化
2． 液晶内体长度可以变化，且颜色可以变化  
规则 当液晶体长度低于外壳长度的20％时变色，反之返回原色
   3． 
动态条名 常规色 警戒色
HP（生命,t体力） 翠绿 大红
EP（精神，脑力） 天蓝 暗黑
TIME（可用时间） 紫色 桔黄已经有人做出了方型框的样本 ，使用滑块来控制 他说 如果有外壳的素材的话 ，可以做得更好看的
他仅仅使用了一小快图片作为液晶体的素材  
不知道如何作出弧形的素材来 。