Option Explicit
Private SortOrder As Integer

Private Sub Form_Load()
  SortOrder = 1
    lbl1.Move 0, 0
      pic1.Width = lbl1.Width
      pic1.Height = lbl1.Height
End Sub

Private Sub flx_MouseUp(Button As Integer, Shift As Integer, x As Single, y As _
  Single)
  Sortieren flx
End Sub

Private Sub Sortieren(Flex As MSFlexGrid)
  With Flex
   If .MouseRow = 0 Then
     .Row = .MouseRow
     .Col = .MouseCol
       pic1.Move .Left + .CellLeft + .CellWidth - pic1.Width - 15, _
       .Top + .CellTop + 15, lbl1.Width, lbl1.Height
        pic1.Visible = True
         pic1.ZOrder 0
 
     If SortOrder = 1 Then
       SortOrder = 2
        lbl1.Caption = "u"
     Else
       SortOrder = 1
        lbl1.Caption = "t"
     End If
     flx.Sort = SortOrder
   End If
 End With
End Sub

Gru? aus dem Norden
manyki