Visual Basic

Dim timeParts() as string
timeparts = TickData(i).dTime.Str.Split(":")
TickData(i).dTime.H = Ctype(timeParts(0), Single)
TickData(i).dTime.M = Ctype(timeParts(1), Single)
TickData(i).dTime.S = Ctype(timeParts(2), Single)

Structure TickTime
        Dim H As Single
        Dim M As Single
        Dim S As Single
        Dim Str As String
    End Structure

    Structure TickD
        Dim CPrice As Double
        Dim dTime As TickTime
        Dim Vol As Double
    End Structure

Sub LoadData()

ReDim TickData(50)

end sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer

        Dim timeParts() As String
        For i = 1 To UBound(TickData)
            timeParts = TickData(i).dTime.Str.Split(":")
            TickData(i).dTime.H = CType(timeParts(0), Single)
            TickData(i).dTime.M = CType(timeParts(1), Single)
            TickData(i).dTime.S = CType(timeParts(2), Single)
        Next
end sub

Public Structure TickTime
    Public H As Single
    Public M As Single
    Public S As Single
    Public Str As String
End Structure

For i = 0 To TickData.GetUpperbound(0)

try
    'do you test here
catch ex as exception
    'tell the user what happened by showing the exception
    msgbox(ex.tostring)
    exit sub
end try

If Textbox1.Text.Length <= 0 then
    Msgbox("An entry is required in Textbox1")
    Textbox1.Focus
    Exit Sub
End If

If Textbox1.Text.Trim.Length <= 0 then
    Msgbox("An entry is required in Textbox1")
    Textbox1.Focus
    Exit Sub
End If

Private Sub ToolStripComboBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripComboBox2.SelectedIndexChanged
    Dim ICount As Int32 = 0

    '**
    ListView1.SelectedItems.Clear()

    Me.Cursor = Cursors.WaitCursor

    For Each LItem As ListViewItem In ListView1.Items

        If LItem.SubItems(7).Text = ToolStripComboBox2.SelectedItem.ToString _
           Or InStr(LItem.SubItems(7).Text, ToolStripComboBox2.SelectedItem.ToString) > 0 Then


            'HERE IS HOW I SET THE X ITEM AS SELECTED IN LISTVIEW

            ListView1.Items(ICount).Selected = True

            'Here if user selects a song in the list it will be played while Media tab is focused
            '
            If TabControl2.SelectedTab Is TabPage7 Then '**
                Call PlayMusic()
            End If

            Me.Cursor = Cursors.Default
            Exit Sub
        End If
        ICount += 1
    Next

    Me.Cursor = Cursors.Default
End Sub

Private Sub TabPage5_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabPage5.GotFocus
    Call PopulateSearchBox(ListView1, 7)
    ListView1.Focus()  'HERE I SET THE FOCUSE FOR THE LISTVIEW
End Sub