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

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

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("")是什么意思！