Foros del Web - Ver Mensaje Individual

franko1809 · #2 (**permalink**) 14/08/2009, 20:38

Puedes hacerlo asi, aunque puede haber otras formas mas simples 5000 y 5001 son los indices o nombres de las imagenes del archivo de recursos

Código:

Private Sub Calcular()
If Option1.Value = True Then
   Picture1.Picture = LoadResPicture(5000, vbResBitmap)
ElseIf Option2.Value = True Then
   Picture1.Picture = LoadResPicture(5001, vbResBitmap)
End If
End Sub

Private Sub Option1_Click()
Calcular
End Sub

Private Sub Option2_Click()
Calcular
End Sub