我想把计算按纽变成这个样（鼠标不放上去计算按纽是蓝色的，就现在这个样；鼠标放上去计算按纽变成红色，单击它计算按纽变成绿色；）在单击它的时候还要运行一个程序，
                         程序如下：
                ------------------------------------------------------------------------
                   Private Sub Command1_Click(Index As Integer)
                     Dim x As Single
                     x = Val(Text1.Text)
                     Text2.Text = x * x
                   End Sub
                 -----------------------------------------------------------------
             请问这段程序要怎么写？？？？
                    

Mouse_Over Mouse_Down 事件。

不懂，你可以写下来吗，麻烦你了！！！！

用鼠标事件Mousemove,MouseDown,MouseLeave
用一个BUTTON为例哈:
设置BUTTON鼠标事件Mousemove(当鼠标移上去时)
在里面输:
Button.BackColor = System.Drawing.Color.Red
也就是当鼠标移上去时BUTTON的背景颜色改成红色
然后设MouseDown鼠标事件(鼠标按下去时)
Button.BackColor = System.Drawing.Color.Green
最后MouseLeave事件(当鼠标离开控件)
Button.BackColor = System.Drawing.Color.[你BUTTON默认的颜色]
OK了~~






 

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = vbRed              /* 颜色改变
End Sub

要在属性面版将command1的style属性改成1才行

这是其中的一种变色

另外的自己写

那如何用Mousemove,MouseDown,MouseLeave来实现菜单自动下拉呢，就像本论坛的中标题下面的一些选项，鼠标放上去就可以弹出下拉内容，请指教

菜单只有Click事件。

Private Sub ButtonPictur1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) 电脑提示错误？？？ If MouseOver Then Exit Sub StopSounds ButtonPicture1(Index).Picture = Image4.Picture End Sub

Loadpicture("")
试试？

上面的朋友，Loadpicture("")是什么意思！