sorry  i made a typo it must be like this:

Private Sub Command1_Click()
  Dim txt As String
  txt = Label3
  Set lb = txt
  lb.Caption = "Hi"
End Sub

What I want todo is to construct the name of the label for example:

  txt = "Label" + "3"
  Set lb = txt
  lb.Caption = "Hi"




"Olof Lagerkvist"  schreef in bericht
news:TseBc.3128$dx3.24629{at}newsb.telia.net...
> leo013 wrote:
>
> > does someone know how to convert a string to set a label, the following
code
> > gives a "Type mismatch"
>
> You have to explain what you mean by "convert" a string, what do you
> want to do?
>
> > Private Sub Command1_Click()
> >   Dim str As String
> >   txt = Label3
>
> Here you get the caption of label 3 and put it in the variable txt.
>
> >   Set lb = txt
>
> Here you try to set the object variable lb to a text string. That is not
> possible because you can only use the Set statement to make an object
> variable reference an object, and a text string is not an object.
>
> If you skip the Set statement you will set the default property of the
> lb object to the txt string.
>
> >   lb.Caption = "Hi"
>
> This would be ok if lb were a reference to an object with a property
> called Caption, then it would set that property to "Hi".
>
> > End Sub
> >
> > and this following works fine:
> >
> > Private Sub Command1_Click()
> >   Dim str As String
> >   Set lb = Label3
> >   lb.Caption = "Hi"
> > End Sub
>
> Private Sub Command1_Click()
>    Dim str As String
>    str = "Hi"
>    Label3 = str
> End Sub
>
> or
>
> Private Sub Command1_Click()
>    Dim str As String
>    str = "Hi"
>    Label3.Caption = str
> End Sub
>
> or
>
> Private Sub Command1_Click()
>    Dim str As String
>    Dim lb As Label
>    str = "Hi"
>    Set lb = Label3
>    lb = str
> End Sub
>
> If this does not help you to understand what is happening you will have
> to explain what you want to do.
>
> -- 
> Olof Lagerkvist
> ICQ: 724451
> Web page: http://here.is/olof
>
---
þ RIMEGate(tm)/RGXPost V1.14 at BBSWORLD * Info{at}bbsworld.com

---
 * RIMEGate(tm)V10.2áÿ* RelayNet(tm) NNTP Gateway * MoonDog BBS
 * RgateImp.MoonDog.BBS at 6/20/04 8:16:12 AM