在 Form上 放 置 一 個 按 鈕 和 Picture。 將 Picture的 Visibel設(shè) 置 為 False。 將 按 鈕 的 Style屬 性 設(shè) 置 為 1。 然 后 使 用 下 面 的 語 句 ： 
    Private Sub Form_Load() 
     Picture1.AutoRedraw = True 
     Picture1.ForeColor = vbRed 
     Picture1.CurrentX = Command1.Width / 2 
     Picture1.CurrentY = Command1.Height / 3 
     Picture1.Print "OK" 
     Command1.Caption = "" 
     Command1.Picture = Picture1.Image 
    End Sub 
<END>