Coding for Shape Opeartor

[saravanansvks]

Dear Friends,
I have prepared a programme in Visual Basic for SHAPE OPERATOR.But my coding are changing the shape only.It does not changes the fill style of the shape tool .And it is not giving ant error msg. Anyhow anybody knows if there is any error in its please write to me.I am needed this programme for my assignment.

MY CODING :
Private Sub Command1_Click( )
Dim i%
If (Option1.Value = True) Then
Shape1.Shape = 0
Shape1.Visible = True
End If
If (Option2.Value = True) Then
Shape1.Shape = 1
Shape1.Visible = True
End If
If (Option3.Value = True) Then
Shape1.Shape = 2
Shape1.Visible = True
End If
If (Option4.Value = True) Then
Shape1.Shape = 3
Shape1.Visible = True
End If
If (Option5.Value = True) Then
Shape1.Shape = 4
Shape1.Visible = True
End If
If (Option6.Value = True) Then
Shape1.Shape = 5
Shape1.Visible = True
End If
For i = 0 To (List1.ListCoun t) Step -1
If (List1.Selected (i) = True) Then
List1Fill.Style = (i)
End If
Next
End Sub

Private Sub Command2_Click( )
End
End Sub

Private Sub Form_Load()
List1.AddItem "solid"
List1.AddItem "Transparen t"
List1.AddItem "HorizontalLine "
List1.AddItem "vertical Line"
List1.AddItem "Upward Diagonal"
List1.AddItem "Downward Diagonal"
List1.AddItem "Cross"
List1.AddItem "Diagonal Cross"
End Sub



Pl. reply to me