-----选择当前项-----

Private Sub f05MITypeSel_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
If vpSearchItem1 = "" Then
lstStatus.Text = lstStatus.SelectedIndex = 0
End If
Select Case Mid(vpSearchItem1, 1, 2)
Case "C"
lstStatus.SelectedIndex = 0
Case "T"
lstStatus.SelectedIndex = 1
Case "Q"
lstStatus.SelectedIndex = 3
Case Else
lstStatus.SelectedIndex = 0
End Select
lstStatus.Enabled = True
lstStatus.Select()
End Sub