Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
        If Me.ListView1.SelectedItems.Count = 0 Then
            MessageBox.Show("Attenzione nessuna schedina selezionata", "Send.Net", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Return
        End If
        RaiseEvent CreateRecordEvent(Convert.ToInt32(Me.ListView1.SelectedItems(0).Text.Substring(10, 4)), Convert.ToInt32(Me.ListView1.SelectedItems(0).Text.Substring(0, 9)), Convert.ToDateTime(Me.ListView1.SelectedItems(0).SubItems(6).Text.Substring(0, 10)))
        Me.Close()
        Me.Dispose()
    End Sub