Write a Visual Basic Program to arrange each row in descending order throw grid control

WAP to arrange each row in descending order throw grid control.

______________________________________________________

Dim i
Private Sub Command1_Click()
MSFlexGrid1.Col = 0 'Set primary key for sorting row
MSFlexGrid1.Sort = 1 'sort in descending order
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
MSFlexGrid1.Rows = 4
MSFlexGrid1.Cols = 4
For i = 0 To 3
MSFlexGrid1.RowHeight(i) = 500
MSFlexGrid1.ColWidth(i) = 2200
Next
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "ROLL NUMBER"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "NAME"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "ADDRESS"
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = "PHONE NUMBER"

MSFlexGrid1.Row = 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "1"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "Sanjay"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "Palam, New Delhi"
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = "9910358270"

MSFlexGrid1.Row = 3
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "2"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "Soni"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "Palam, Delhi"
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = "011-25253480"

MSFlexGrid1.Row = 2
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "3"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "Krishna"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "Delhi"
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = "011-58025910"
End Sub

___________________________________________________
OUTPUT
___________________________________________________

First Image



Second Image



____________________________________
DOWNLOAD
____________________________________

Download its form

Download its Image 1

Download its Image 2

BACK TO MAIN PAGE