Public Class dmstest
    Private Sub dmstest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ClsDokumente1.Patientnr = 1
        Me.ClsDokumente1.refreshdata()
    End Sub
End Class