一、設窗體上有若干個以Command1命名的命令按鈕，現要求：點擊其中一個按鈕後，該按鈕不可用，而其它的按鈕均可用。以下幾行代碼可以實現這個要求，比一個一個的設置高效得多。其實，我也是看了土人的關於控件數組的一文後，認為我的方法更加簡單，代碼更簡易。
以下是實現的代碼：
PrivateSubCommand1_Click(IndexAsInteger)
StaticaAsInteger
Ifa<>0ThenCommand1(a-1).Enabled=True'用於恢復按鈕可用
Command1(Index).Enabled=False
a=Index 1
EndSub
注：變量a主要是用來存儲上一次單擊的按鈕Index，至於a-1和a 1是為了避免當單擊index為0時的按鈕時，會出現問題，所以用此法避開了。
二、當用自制一個菜單時，可用如下辦法實現移到哪項時，則哪項背景色就與其它的項目的背景色不同。就是說和真的菜單一樣，當移到哪一項時，則那一項的背景色就會以藍色背景顯示。
以下是實現的代碼：
PrivateSubForm_Load()
DimabcasInteger
fora=0toLabel1.Count-1
Labe11(a).BackStyle=0
next
EndSub
PrivateSubLabel1_MouseMove(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
StaticaAsInteger
'實現藍底的背景
Label1(Index).BackStyle=1
Label1(index).BackColor=rgb(0,0,255)
'用於實現上一項背景透明
Ifa>=0Anda<>IndexThen
Label1(a).BackStyle=0
EndIf
a=Index
EndSub
注：以上是以LabeblBox控件為菜單項，菜單項多少不限。
以上實例在Win98，VB6.0運行通過。最後，希望大家能夠把數組運用的得心應手。->
