[VB6] variabile Boolean

[oregon]

E' quello che avevo scritto io ma ti avevo chiesto anche di mostrare il tuo codice ...

[yyzyyz]

E' quello che avevo scritto io ma ti avevo chiesto anche di mostrare il tuo codice ...

Scusami Oregon ho fatto un errore stupido sul codice.
codice errato

Private Sub cbmodifica_Click()
' modifica agenda
myidrec = ListView1.ListItems.Item(ListView1.SelectedItem.Index)

inserimento.txtora.Text = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(1).Text
inserimento.txtdata.Text = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(2).Text
inserimento.txtnumero.Text = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(3).Text
mod_age = True
inserimento.Show 1
End Sub

codice funzionante

Private Sub cbmodifica_Click()
' modifica agenda
myidrec = ListView1.ListItems.Item(ListView1.SelectedItem.Index)

miaora = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(1).Text
miadata = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(2).Text
mionumero = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(3).Text
mod_age = True
inserimento.Show 1
End Sub