菜鸟问题，马上就给分，好急呀！！！！

Question

Public Function a() As Image
    Image1.Stretch = True
    If CommonDialog1.FileName <> "" Then
        Image1.Picture = LoadPicture(CommonDialog1.FileName)
    End If
    set a=image1
End Function不一定行，试试吧

Answer 1

Public Function a() As Image
dim image1 as image
    Image1.Stretch = True
    If CommonDialog1.FileName <> "" Then
        Image1.Picture = LoadPicture(CommonDialog1.FileName)
    End If
    Return image1
End Function
应该是这样吧！

Answer 2

Public Function a() As Image
    Image1.Stretch = True
        Image1.Picture = LoadPicture("c:\22.jpg")
Set a = Image1
End FunctionPrivate Sub Command1_Click()
 Me.Picture = a.Picture
End Sub

Answer 3

或者把里面的控件都用public声明！

Answer 4

Public Function a() As Image
    Image1.Stretch = True
    If CommonDialog1.FileName <> "" Then
        Image1.Picture = LoadPicture(CommonDialog1.FileName)
    End If
    Set a = Image1
End Function

Answer 5

Public Function a() As Image
    Image1.Stretch = True
    If CommonDialog1.FileName <> "" Then
        Image1.Picture = LoadPicture(CommonDialog1.FileName)
    End If
    Set a = Image1
End Function

Answer 6

Public Function a() As Image
    Image1.Stretch = True
    If CommonDialog1.FileName <> "" Then
        Image1.Picture = LoadPicture(CommonDialog1.FileName)
    End If
    Set a=Image1
End Function

Answer 7

Public Function a() As Image
    dim image1 as image
    Image1.Stretch = True
    If CommonDialog1.FileName <> "" Then
        Image1.Picture = LoadPicture(CommonDialog1.FileName)
    End If
    set a = image1
End Function

Answer 8

不一定要用函数返回，可以用过程引用的方式。Public sub a(i as image )
     i.Stretch = True
    If CommonDialog1.FileName <> "" Then
        i.Picture = LoadPicture(CommonDialog1.FileName)
    End If
End Function

Answer 9

Public Function a() As Image
    Image1.Stretch = True
    If CommonDialog1.FileName <> "" Then
        Image1.Picture = LoadPicture(CommonDialog1.FileName)
    End If
    Set a = Image1
End Function

Answer 10

直接用a=image1就可以！！！
Public Function a() As Image
dim image1 as image
    Image1.Stretch = True
    If CommonDialog1.FileName <> "" Then
        Image1.Picture = LoadPicture(CommonDialog1.FileName)
    End If
    a=image1
End Function
这样应该行的！！！