設定按鈕的屬性Style為1,且將按鈕的屬性Picture選你想載入的圖片或設定按鈕的屬性BackColor的顏色,都可作出漂亮的按鈕.如要改變按鈕形狀則較複雜.可使用2個Shape控制元件和1個Label控制元件完成（仿3D效果），3控制元件的顏色設成一樣。如需載入圖片則Label控制元件改用PictureBox控制元件，具體程式碼：

Private Sub Form_Load()

Shape2.Visible = False

End Sub

Private Sub Label1_Click()

Form2.Show

End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Shape2.Visible = True

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Shape2.Visible = False

End Sub