form overall settings

Hello all, i'm trying to make a routine that sets the icon.
I want to load it before i show the form.

I know the name of the form.

I tried:
Sub Load_Formicon(ByVal inp As String)
inp.Icon = LoadResPicture(bm_dll.bmS_icon + CStr(VScrollPic.Value), 0)
End Sub

Load_Formicon("MS_ParentDummy")

and:
Sub Load_Formicon(ByVal inp As form)
dim myform as form

set myform = inp
myform.Icon = LoadResPicture(bm_dll.bmS_icon + CStr(VScrollPic.Value), 0)
End Sub

Load_Formicon(MS_ParentDummy)

Can someone tell/explain how i should this?

If you want to load the icon before showing the form, why don't you just do something like the following

load {formname}
{formname}.icon=loadpicture({PicturePath})

As this should work.

Cheers

Chris