ABRIR UMA IMAGEM EM UMA FORM. ORIUNDA DE OUTRA FORM.

[samara.vba]

BOM DIA A TODOS.

ESTOU COM O SEGUINTE PROBLEMA.

TENHO UMA FORM COM UM OBJETO DE IMAGEM QUE CARREGA UMA FOTO:

FORM1 >>>>>> IMAGE1 = FOTO

E QUERO QUE AO PASSAR O MOUSE EM CIMA DA IMAGE1 ABRE OUTRA FORM EXIBINDO ESTA MESMA FOTO.

FORM2 >>>>>IMAGE1 =FOTO

 

[Basole]

@samara.vbause o evento mouse move do componente image

Exemplo: 

No Userform1:

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

Load UserForm2

With UserForm2
.Image1.Picture = UserForm1.Image1.Picture
.Show
End With

End Sub

 

Editado Maio 7, 2022 por Basole