Kan någon säga mig vad som är fel i denna texten ?? ==

Private Sub Command7_Click()
If "Text3" = "hmm" Then
Dim i As Integer
For i = 0 To 499
Var = Shell("C:\WINNT\System32\net send " & Text2.Text & " " & Text1.Text, 1)
Next i
Caption = "Net Send"
MsgBox "Programmet stängs", , "Avslutas"
End
End If
End Sub


Plzzz help me....

Villkoret är fel...

If "Text3" = "hmm" Then

kollar om "Text3" är likadant som "hmm", men det är det ju inte. Om du däremot skriver

If Text3.Text = "hmm" Then

så kollar den om _innehållet_ i Text3 är likadant som "hmm".

/DaPe

Tack jag hade testat med " & text3.text & " innan men det funkade inte så jag trodde det var något annat fel....

/Oskar

Hej
Lite andra synpunkter ,skriv inte Hjälp som rubrik
försök hitta styrande ord tex "Shell problem"

Private Sub Command7_Click()
If Text3.Text = "hmm" Then
Dim i As Long,ret As Long
For i = 0 To 499
ret = Shell("C:\WINNT\System32\net send " & Text2.Text & " " & Text1.Text, 1)
Next i
Me.Caption = "Net Send"
MsgBox "Programmet stängs", , "Avslutas"
Unload Me
End If
End Sub

Dvs "Var" är inte bra låter som ett reseverat ord
Caption samma sak bör användas som tex
Label1.Caption Form1.Caption mfl.
Du bör inte använd End, Unload Form1 är det riktiga

mvh
Sven

Hehe jag ser att du också gör ett NET SEND program =)
Jag gjorde ett sådant program lite snabbt förut men då hade jag ett program som skriver till en *.bat fil, som sedan körs. Detta visade sig vara onödigt när man kunde köra
C:\WINNT\System32\net send... direkt =)