Ya se lo que pasaba. En vez de poner
Private Sub MDIForm_Load()
Dim newform As New Form5
newform.Show
hay que poner
Private Sub MDIForm_Load()
Dim newform As New Form5
Form5.Show
Por fin di con la solucion
Menos mal
ya pensaba que no lo iba a descubrir nunca.
Gracias de todas formas.