Pointer to a userform

[Jos Vens]

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

 

[Robin Hammond]

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]

Thanks Robin,

Jos

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