Кнопка стиля graphical, картинка и Caption

[Mikle]

Возможно туплю... никогда раньше graphical кнопками не пользовался.
Сделал graphical кнопку с пустым Caption, наложил картинку, потом присвоил Caption непустое значение - картинка перемещается...
Попробуйте например так:

Код: Выделить всё

Option Explicit

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 1 Then
    Dim n As Long
    For n = 0 To 31
      pic.Line (Rnd * 2000 - 500, Rnd * 2000 - 500)-(Rnd * 2000 - 500, Rnd * 2000 - 500), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
    Next n
    Set pic.Picture = pic.Image
    Set cmd.Picture = pic.Image
  Else
    cmd.Caption = "X"
  End If
End Sub

Покликайте сначала левойкнопкой, потом правой.