[RESOLVED] listview question

[Pouncer]

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim oItem As ListItem
    If Button = vbRightButton Then
        Set oItem = ListView1.HitTest(x, y)
        If Not oItem Is Nothing Then
            oItem.Selected = True
            PopupMenu mnuPopup
        End If
        
    Else
        Text2.Text = ListView1.SelectedItem.ListSubItems.Item(1)
    End If
End Sub

Im trying to make the selected item appear in text2.txt, but it only appears when i double click it with left mouse click , how can i make it appear on a single click?