Public Sub DlgOpen(pTop As Long, pLeft As Long, pWidth As Long, strOptions As _
  String)
'Code : schups Control an die richtige Position
'             Fülle 1.ComboBox(0) mit Optionen (weitere werden dann dyn. 
' geladen wenn was in der 1. ausgewählt wurde)
End Sub
 
Private Sub cmdOKCancel_Click(Index As Integer)
  If Index = 0 Then 'OK
    'OrderBy-Klausel aus Daten erstellen und in der Public Variablen speichern
  Else
'Cancel auswerten
  End If
 
  UserControl.Extender.Move 0, 0, 0, 0  'vielleicht hat da noch einer ne andere 
  ' Lösung
                                                                     'gibt ja 
                                                                     ' leider 
                                                                     ' kein 
                                                                     ' .Visible
End Sub