Hej hej pellesoftare...

Jag tänkte skicka med vilken kontrol jag vill använda i en sub men hur jag än gör blir det fel, så här har jag gjort (Jag har bara gissat, inte läst mig till det nånstans så det är mycke möjligt att jag har helt fel).

I formuläret finns 2 listor (liStat och liHäst)

När jag klickar på en av listorna ska den anropa suben
Suben ska göra olika sak beronde på vilken lista det handlar om.
Så jag har skrivit som nedan, men vilken lista jag än skickar så blir det båda.

Private Sub liStat_Click()
Call TextInPut(liStat)
End Sub

Public Sub TextInPut(Kontroll_Lista As Control)
If Kontroll_Lista = liStat Then
Msgbox"listat är vald"
Elseif Kontroll_Lista=liHäst Then
Msgbox"Lihäst är vald"
End If
End Sub

Skulle jag skrivit:
If Kontroll_Lista=liStat Then Msgbox "1"
If Kontroll_Lista=liHäst Then Msgbox "2"

Så skulle den ha skickat ut 2 msgboxar.

Så hur ska man kunna skilja på dom när man skickar med dom för att användas i en sub? Är det jag har gjort rätt nånstans?

"Min brors flickvän har värsta nackspärren" // R-mus

När det object man testar så använder man is istället för =
t.ex
dim x as object
dim y as object

y = createobject("mswinsock.winsock.1")
set x = y 'sätter så att båda har samma object

if x is y then 'sant (x är y)
if not(x is y) then 'falskt inte(x är y)

ja nu funka det tack så mycke // R-mus