Thanks Robin,
Jos
"Robin Hammond" schreef in bericht
...
Why not just pass the form as an argument to the sub:
'form code
Private Sub UserForm_Initialize()
SetForm Me, 390, 315
End Sub
'in module
Option Private Module
Public Sub SetForm(frmInput As UserForm1, dWidth As Double, dHeight As
Double)
With frmInput
.Height = dHeight
.Width = dWidth
End With
End Sub
Robin Hammond
www.enhanceddatasystems.com
"Jos Vens" wrote in message
...
Hi,
how can I set a pointer to an existing userform.
I tried this to use in an module
public fME as Userform
function Set_Form()
fME.Height = 315
fME.Width = 390
end function
In the Userform Initialize section
Private Sub UserForm_Initialize()
Set fME = ME
Set_Form
End Sub
...
but I can't assign my userform to the global pointer (nor can I when I
substitute de ME to Userforms("myForm") or something like that.
Any help is appreciated
Jos Vens