inputbox personalizzato vb6

[lemac]

ciao tutti;
sto cercando di realizzare 1 inputbox personalizzato;
ho 1 form ke contiene vari textbox;
selezionandoli con il tasto tab, il focus passa ai vari textbox;
quando uno di questi textbox,riceve il focus, con l'evento gotfocus,
si apre il form2, coè l'inputbox, ke contiene 1 textbox per l'inserimnto dei dati
ke andranno smistati tra vari textbox del form 1, 1 bottone ok e accetta i dati e chiude il form2,
cioè l'inputox;
1 bottone cancella ke elimina il contenuto del textbox presente nel'inputbox;
ed infine 1 bottone annulla ke mi riporta al form1 senza aver digitato nulla
nel textbox dell'inputox;
vi posto i codici inseriti nei due form:

codice form1:

Private Sub Text3_GotFocus()
Form2.Show
End Sub

codice form2:

Private Sub annulla_Click()
Me.Hide
End Sub

Private Sub cancella_Click()
Text1.Text = ""
End Sub

Private Sub ok_Click()
On Error Resume Next
 Form1.Text6.SetFocus  'Sposta lo stato attivo, cioè linput sul controllo TextBox6 del form1
  Me.Hide
End Sub

Private Sub Text1_Change()
Form1.Text1 = Form2.Text1
End Sub

il mio problema è ke per chiudere il form inputbox devo premere 2 volte sul pulsante ok;
mentre se clicco sul pulsante annulla il form inputbox rimane sempre attivo;
questo perchè il textbox del primo form che aveva il focus e chiamava il form 2
continua ad avere il focus;
cosa devo inserire per risolvere questi 2 problemi?

[Brainjar]

nel form 1 :

Public blShow As Boolean


Private Sub Form_Unload(Cancel As Integer)
    If Not Form2 Is Nothing Then
        Unload Form2
    End If
End Sub

Private Sub Text3_GotFocus()
    If Not blShow Then
        Form2.Show
        Form2.Text1.SetFocus
        blShow = True
    Else
        blShow = False
    End If
    
End Sub

Nota il codice nel Form_Unload del form1. Se manca ti resta attiva l'applicazione anche se
chiudi il form1.

[lemac]

ciao Brainjar
il codice ke hai scritto funziona;
grazie
arrivederci a presto
ciao, lemac