lock userform to screen

[Jaye7]

Hi All,

Is there a way to lock a userform to the screen so that if I go from say excel to internet explorer the userform will remain on the screen so that I can see the textbox info without having to flick back and forth between programs (I only use one monitor)

Thanks

 

[Jaye7]

Just a note,

I want it to be like a stickynotes program where it's locks/ pins the userform to the screen no matter what you do, until you close it.

 

[Jaye7]

is there anyone out there?????

 

[Domenic]

See if this helps...

http://www.mrexcel.com/forum/showthread.php?t=75122

 

[pedie]

If you are referring to keeping userform always on top refer to this link: No matter where you go it will be on top of any screen...[I mean the userform...]

 

[Jaye7]

Hi Guys,

Thanks for your help but maybe I need to explain what I want a bit better.

If you think of a post it note or sticky note, you write on it and stick in on your screen, it stays there.

I use an application called stickynotes, basically it is a computer post it note or stickynote.
You can write on it and it remains stuck to your screen no matter what application you go into, if you go into word the note is stuck there, if you go into internet explorer it is stuck there, until you close it.

A userform can stay on the screen when you switch between excel workbooks but when you change to internet explorer you can no longer see the userform, I want to be able to see the userform even when I switch from excel to internet explorer.

I hope that this explains what I am after a bit better.

 

[Jaye7]

Are there any experts out there that can help with this, please?????

 

[Jaye7]

Chip Pearson has given me a solution for this problem.

Option Explicit
Private Declare Function SetWindowPos Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal cx As Long, _
    ByVal cy As Long, _
    ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Private Const HWND_TOPMOST = -1
Sub ShowTheForm()
    Dim UF As UserForm1
    Dim UFHandle As Long
    Set UF = New UserForm1
    UFHandle = FindWindow("ThunderDFrame", UF.Caption)
    SetWindowPos UFHandle, HWND_TOPMOST, UF.Left, UF.Top, UF.Width, UF.Height, 0&
    UF.Show vbModeless
End Sub

the only problem that I am having now is that I can not update the textbox controls on the form, hopefully Chip will give me a solution.