'...dein restlicher code
Private Sub DatenSenden(ByVal Nummer As Integer)
       For Each MdiClient In Me.MdiChildren
       If TypeOf(MdiClient) Is Class1.Klasse Then
          Dim a As Class1.Klasse = MdiClient          
          a.var = Nummer
       End If
    Next
End Sub