ClearControls(Me) ' me ist das formular
 
dazupassende funktion
Private Sub ClearControls(MainCon as control)
    for each con as Control in MainCon.Controls
        if Typeof con is TextBox then
            ctype(con, TExtBox).TExt = STring.empty
        elseif Typeof con is LAbel then
            ctype(con, Label).TExt = Sring.empty
        elseif Typeof con is DataGrid then
            ctype(con, DataGrid).Datasource = Nothing
        elseif Typeof Con is Panel then
            ClearControls(Con)
        Endif
    next con
End Sub