Form1   : 調整表單視窗的大小,使Width和Height合乎適當大小。
Shape1  : Shape = 1,矩形。
Hscroll1: Max = 20; Min = 1
Text1   : Text = "1"
Command1(0):Caption = "0"
Command1(1):Caption = "1"
Command1(2):Caption = "2"
Command1(3):Caption = "3"
Command1(4):Caption = "4"
Command1(5):Caption = "5"

Private Sub Command1_Click(Index As Integer)
Shape1.Shape = Index
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
Shape1.BorderWidth = HScroll1.Value
End Sub

學習重點:
　˙學會設計Command控制項陣列,依Index值來繪出Shape圖形。
　˙瞭解Shape屬性的設定與結果(Width,Shape,FillColor,FillStyle)。
程式說明:
　(1)由命令陣列按鈕Command1_Click(Index As Integer)的Index值,
     來設定Shape1的Shape值Shape1.Shape = Index。
　　　Shape = 0 ; 顯示 矩形。
　　　Shape = 1 ; 顯示 正方形。
　　　Shape = 2 ; 顯示 橢圓形。
　　　Shape = 3 ; 顯示 圓形。
　　　Shape = 4 ; 顯示 圓角矩形。
　　　Shape = 5 ; 顯示 圓角正方形。
　(2)由HScroll1的Value來決定Shape1的線條粗細;
　　　Shape1.BorderWidth = HScroll1.Value。 
  (3)Text1文字框是用來顯示HScroll1的Value值;
  　　Text1.Text  = HScroll1.Value。