subFormにpublic cHoge As clsHogeしておいて
Dim f As New subForm()
f.cHoge = cHoge
　f.ShowDialog(Me)
　f.Dispose()
でもいいぞ