Private Sub Option1_Click()
 
 
    MSFlexGrid1.Col = 1
    MSFlexGrid1.Sort = flexSortNumericAscending
 
 
End Sub
 
Private Sub Option2_Click()
 
 
    MSFlexGrid1.Col = 7
    MSFlexGrid1.Sort = flexSortNumericAscending
 
 
End Sub
 
Private Sub Option3_Click()
 
 
    MSFlexGrid1.Col = 6
    MSFlexGrid1.Sort = flexSortNumericAscending
 
 
End Sub
 
Private Sub Option4_Click()
 
 
    MSFlexGrid1.Col = 3
    MSFlexGrid1.Sort = flexSortNumericAscending
 
 
End Sub

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD