Deplacer image de de fond d'un userform

Bonjour

svp j'ai un userform avec une image de fond. les propriétés d'alignement disponibles sont topleft, topright; center, downleft et downrighnt. je souhaite déplacer mon image librement sur lz userform comment je peux faire

merci d'avance

Bonjour toutes et tous

J'ai trouvé ceci merci à A2H

si cela peut aider, attention les 2 images sont en (.gif)

Option Explicit
' déclaration des variables
Dim X0 As Single, Y0 As Single

Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   X0 = X: Y0 = Y
   End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   If Button = 0 Then Exit Sub
   Label1.Left = Label1.Left + X - X0
   Label1.Top = Label1.Top + Y - Y0
  End Sub

crdlt,

André

Rechercher des sujets similaires à "deplacer image fond userform"