[求助]这个东西的原代码怎么写?
我想把计算按纽变成这个样(鼠标不放上去计算按纽是蓝色的,就现在这个样;鼠标放上去计算按纽变成红色,单击它计算按纽变成绿色;)在单击它的时候还要运行一个程序,
程序如下:
------------------------------------------------------------------------
Private Sub Command1_Click(Index As Integer)
Dim x As Single
x = Val(Text1.Text)
Text2.Text = x * x
End Sub
-----------------------------------------------------------------
请问这段程序要怎么写????