Make a form 'Follow' another

[crackmunky]

Heya guys,

              I made a seperate form for my chat window and made it transparent, Ive set it so by default it is allways ontop of the frmMirage but nothing else. I want it to be able to follow the frmMirage if it is moved, i tried this -

```
    TxtChatForm.Left = frmMirage.Left
    TxtChatForm.Top = frmMirage.Top
TxtChatForm.Hide
TxtChatForm.Show
```
to no avail, here is an image of what it looks like right now -

[](http://img4.imageshack.us/my.php?image=errorwxb.jpg)

So to say again I want to get it to FOLLOW frmMirage. Any help is appreciated.

[Bobosk]

Can't you run it on over timer, that checks to see if the form's top/left match..?

[vrage]

use the game loop

[crackmunky]

@V-Rage:

> use the game loop

Ahh thankyou for that one, I saw that I placed it slightly above the main loop.
```
    If ChatX = 0 Then ChatX = frmMirage.Top
    If ChatY = 0 Then ChatY = frmMirage.Left

    If Not frmMirage.Left = ChatX Then
            TxtChatForm.Left = frmMirage.Left
            ChatX = 0
            End If

    If Not frmMirage.Top = ChatY Then
            TxtChatForm.Top = frmMirage.Top
            ChatY = 0
            End If
```
Im very new to VB but I just wrote the above peice of code and it seems to be working.

[Robin]

Glad to see you learnt some logical negation from me, but it shouldn't be used in this context.

Make a new sub and call it in your GameLoop, preferebly within a 25 tick timer.

```
If (frmCredits.Left = frmMainMenu.Left) And (frmCredits.Top = frmMainMenu.Top) Then Exit Sub
frmCredits.Left = frmMainMenu.Left
frmCredits.Top = frmMainMenu.Top
```
Re-name frmCredits to your chat form, obviously. And frmMainMenu to frmMirage.

[crackmunky]

@Robin:

> Glad to see you learnt some logical negation from me, but it shouldn't be used in this context.
>
> Make a new sub and call it in your GameLoop, preferebly within a 25 tick timer.
>
> ```
> If (frmCredits.Left = frmMainMenu.Left) And (frmCredits.Top = frmMainMenu.Top) Then Exit Sub
> frmCredits.Left = frmMainMenu.Left
> frmCredits.Top = frmMainMenu.Top
> ```
> Re-name frmCredits to your chat form, obviously. And frmMainMenu to frmMirage.

Ahh I see, the method you used is much more efficent. Thankyou for that, slowly learning.

[Robin]

Much quicker than most people, it seems. I haven't seen anyone warm up to logical operators so quickly before.

Keep it at, and I'll answer any questions you post :]

[anasky]

I don't know if it works fast enough now, but you could make it like this:
```
If frmMirage.Left <> (textbox).Left Then
    (textbox).Left = frmMirage.Left
End If
```
Not sure if it works faster though.