Private m_nID as long
Public Sub SetID(byval nID as long)
m_nID = nID
End Sub
Sub Form_Load()
' you can use the m_nID here
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''
' Parent Form calling sub code fragment
''''''''''''''''''''''''''''''''''''''''''''''
' ..............
Dim frm As new frmChild