[VB6] - Msgbox e Form_Activate

[youridj]

Ecco il codice esemplificativo

Form padre
Private Sub CmdAdd_Click()
'If MsgBox("Vuoi aggiungere il dato?", vbYesNo) = vbYes Then LstDati.AddItem 11
FrmMsgBox.Show vbModal, Me
End Sub

Private Sub Form_activate()
LstDati.Clear
For i = 1 To 10
LstDati.AddItem i
Next i
End Sub

Form MsgBox
Private Sub CmdNo_Click()
Unload Me
End Sub

Private Sub CmdSi_Click()
FrmPadre.LstDati.AddItem 11
Unload Me
End Sub