Using Form Name in Subs

[Dbee]

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