Probelema con popup menu

[fanboy]

Ciao a tutti, allora i mio pronlemino è il seguente


In un form Chiamiamomolo form1 ho definito un menu che viene visualizzato per esempio su un controllo textbox e fin qui nessun problema(questo mi è servito per visualizzarre un menu differente dal solito taglia, incolla, ..... di windows), funziona correttamente!!!

Se invece io apro il form1 da un form2 con il classico comando
form1.show vbmodal se richiamo il menu creato da me sul controllo textbox mi apre il menu classico di windows. Porca pupattola qualcuno sa risolvere il problema .

[fanboy]

Ok risolto,porca trottola, basta togliere quel Vbmodal quando si richiama il form1!!! Bah evidentemente si incasina. Ahhhh già che ci sono visto che ho aperto un nuovo thread approfitto per chiedere una cosa semplice semplice. Come faccio a vedere se un form è già aperto. Mi spiego meglio io sono nel form1 e devo aprire il form 2, prima di aprire il form2 voglio fare un test nel form1

[sebamix]

public function IsFormOpen(strName as string) as boolean
  dim f as form
  IsFormOpen = false
  for each f in Forms
    if f.name=strName then
      ' aperto
      IsFormOpen=true
      exit for
    end if
  next f

  set f=nothing
end function

Sono andato a memoria ma dovrebbe funzionare.

richiami con:

if IsFormOpen("Form2")=false then
  form2.show
end if

[fanboy]

Grazie mille ora provo