Сделал 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
Покликайте сначала левойкнопкой, потом правой.