Change form icon [RESOLVED]

[crux2002]

hi mates.

i want to know if it is possible to change icons of a form. for example,
i have a orange smiley icon and a blue smiley icon.

depending on a option selected on the form, i want to switch betwenn the icons.

il be waiting for your replies.

BR, Crux

[Deepak Sakpal]

Private Sub cmdChangeIcon_Click()
    If optOrange.Value = True Then
        Me.Icon = picOrangeSmiley.Picture
    Else
        Me.Icon = picBlueSmiley.Picture
    End If
End Sub

[crux2002]

thank you.

worked perfect.

thank you

[Deepak Sakpal]

do u have two picturebox controls (picOrangeSmiley, picBlueSmiley) containing different images.

[crux2002]

just edited my post.

it worked matey.

thank you.

the problem is that i accidentally put both pictures with same icon

lol

thank you.

[Deepak Sakpal]

ok then have this thread resolved . Edit ur first post of this thread and change its icon to green check arrow.

[crux2002]

done.

thank you once again

[crux2002]

one more thing matey:

how do i share vars and funtions between forms

example: i have a form1 with a function 'Unload'

how do i call the same function from Form2?

it always says 'Sub or Function not defined'

same applies to varables.

i saves a variable in form1 and i cant check that same variable in form2

thanks in advance mate

[dglienna]

I don't know if you can use Unload, but you can refer to functions and variable by preceding them with the name of the form that its in, ie. form2.function() or form1.form2value

[crux2002]

thank you, but didnt work

i try:
Form1.Calculate ( )

and didnt work.

name of the form is Form1
name of the function in Form1 is Calculate
i want to call same function, but without having it in a module.

EDIT: WORKED!
need to use

Form1.Calculate

but function Calculate needs to be Public. not private.

thank you!