Ahi te va un pequeño bloque de codigo amigo , espero que te sirva
Si tienes alguna duda mandame un mail:
[email protected]
Saludos y Suerte...
Private Sub Accion_Click()
Select Case Accion.Caption
Case "Dibujo1"
#If APPFORGE Then
AFGraphic1.Picture = "Dibujo1"
#Else
AFGraphic1.Picture = App.Path & "\Dibujo1.rgx"
#End If
Case "Dibujo2"
#If APPFORGE Then
AFGraphic1.Picture = "Dibujo2"
#Else
AFGraphic1.Picture = App.Path & "\Dibujo2.rgx"
#End If
End Select
End Sub