VB Code:
If lstCurrentSequence.SelectedIndices.Count > 0 Then
Dim frmNewRecord As New frmNewRecord()
frmNewRecord.txtSampleDescription.Text = lstCurrentSequence.SelectedItems(0).SubItems(1).Text
frmNewRecord.txtOperator.Text = lstCurrentSequence.SelectedItems(0).SubItems(2).Text
frmNewRecord.dtpDate.Value = Convert.ToDateTime(lstCurrentSequence.SelectedItems(0).SubItems(3).Text)
frmNewRecord.ShowDialog()
lstCurrentSequence.SelectedItems(0).SubItems(1).Text = frmNewRecord.txtSampleDescription.Text
lstCurrentSequence.SelectedItems(0).SubItems(2).Text = frmNewRecord.txtOperator.Text
lstCurrentSequence.SelectedItems(0).SubItems(3).Text = frmNewRecord.dtpDate.Value.ToShortDateString
End If