'Ist das richtig?#################################
    Private Sub MainPage_ReportUpdated(sender As Battery, args As Object) _
      Handles Me.ReportUpdated
        textBlock_LZ2.Text = "Test"
    End Sub
'###############################