annulla il focus di un form alla sua apertura

[vega2002]

Salve,
qualcuno sa come si potrebbe raggirare questo problema:

Come posso far si che, un form si apra senza che venga selezionato??
Ovvero.. se sto già utilizzando un form dell'applicazione e ne viene aperto un altro, il nuovo form che si apre non deve prendere il focus dell'applicazione.

Come potrei fare??

Aspetto risposte, grazie.

[FinalFantasy]

Form nuovo che viene aperto

Private Sun form1_load()
formprincipale.SetForuc
end sub

[vega2002]

ehm.. no
quel caso funziona se i form sono 2
facendo un ritorno di focus al primo non mi si seleziona il secondo..

però io ho molti + form.

ci sarà un modo per annullare il focus del form che si apre??

[FinalFantasy]

allora non ho capito la tua descrizione

[vega2002]

allora in pratica...
il mio programma è un po particolare.
è un programma per la comunicazione istantanea.
mentre tu stai digitando un messaggio privato e un utente si connette si apre un piccolo form in basso a destra dello schermo che avvisa che l'utente è online.
questo form però si prende il focus, e deseleziona la finestra del messaggio privato

quindi mi servirebbe qualcosa che annulli il focus a quel form di avviso

[IKON]

Se imposti la proprieta WindowState a 1 (Minimized)? :adhone:

[tas]

L'idea del SetFocus non è male, basta solo affinare il tutto.
Da quello che ho capito ci sono questi form:
Form1: il form principale che gestisce tutto
Form2: il prototipo di form per chattare
Form3: il prototipo di form di avviso

In un modulo scrivo la seguente dichiarazione:

Public lastform As Form

In questa variabile imposterò il riferimento all'ultimo form utilizzato.

In Form1 da qualche parte ci sarà un blocco di codice che apre le nuove finestre di chat:

Dim f As New Form2

f.Show

e un blocco di codice che apre le finestre di avviso:

Dim f As New Form3

f.Show

If (Not lastform Is Nothing) Then lastform.SetFocus

L'ultima riga ridà il focus all'ultima finestra di tipo Form1 o Form2 utilizzata.

Inoltre, sempre in Form1:

Private Sub Form_Activate()
   Set lastform = Me
End Sub

In Form2 occorre aggiungere questo codice:

Private Sub Form_Activate()
   Set lastform = Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Set lastform = Nothing
End Sub

[vega2002]

Bene! Perfetto, grazie
ora il problema sembra essere risolto..
anche se, se piu utenti si connettono insieme prima che la focus torni alla finestra chat impiega 1/2 secondi
Troncherà qualche parola a chi sta digitando in quel momento , ma molto meglio di prima è