子程序或函数未定义
我写一个代码,运行出现错误,提示子程序或函数未定义:错误地方用其他颜色标示Dim Now_State AS Boolean
Dim Number1 AS Integer
Ptivate Sub Cmd_Click(Index AS Integer)
If Now_State Then
Cmd(Index).BackColor=&00&
Else
Cmd(Index).BackColor=&HFFFFFF
End If
Now_State=Not Now_State
Number1=Number1+1
Text1.Text=Number1
End Sub
Private Sub Form_Load()
Now_State=True
Number1=0
Text1.Text=Number1
End Sub