Using Form Name in Subs

I am working on a routine that requires the Name of the Form in the public Declaration
LIke The Following:
But It will not work Need Help Please.

' Where INkey_Text(Index)=An Array of textboxes in the Form

' What I have Tryed is

Public Sub Setform(Index as Integer,Setname as Form)
Setname (index),Form1)
End Sub

Public Sub Do_Change(Index As Integer)
Setname.Inkey_Text(Index).SetFocus
Ax$ = Setname.Inkey_Text(Index).Text
End Sub

Public Sub Load_State(Pen As Integer)
For Ak = 1 To Pen
Do_select (Ak)
Setname.Inkey_Text(Ak).Text = Control$ ' Enter Formatted Name Here
Next
End Sub

Don

I have no idea what it is that you are trying to do, but Me.Name placed anyplace in a form's code will yield the name of the form.

Martin

This is part of the program the you help me with earler

I have modified it and now trying to get the form name so that I can use a Module to
set the data to the textboxes in a form. Instead of on the form its self.

Using the universal formatted input routine that I am writing.

When I do get it done I am going to send you a copy of it for your input.
Or to tell me there is a better way.


Don

As Martin says use the ME keyword anywhere in the FORM code but if your using a module then use the name of the form itself like

Code:

---

MAINFORM.Picture1.Backcolor = vbWhite

---

DocZaf
{;->