Changing display message in Task Bar

[paralinx]

Yes I tried it. But the only thing that I don't like is when you minimize the form it shows two forms minimizing, and that can be annoying. Thanks though it's a lot of help!

[paralinx]

Alright one more question. I tried to figure out a way to make text scroll across the title bar caption. I got as far as the code below, but i can't figure out how to make the right edge connect to the left edge, so its a continuous loop.

'code in timer
Me.Caption = " " & Me.Caption

Any suggestions?

[|2eM!x]

Hey I think I'm getting closer..


Change Rhinos code to this:

FrmMain:

Option Explicit
 
Private Sub Form_Load()
    Load frmHidden
    frmHidden.Show
    frmHidden.Move -1000, -1000
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Unload frmHidden
End Sub
 
Private Sub Form_Resize()
    If Me.WindowState = vbMinimized Then
        Me.Visible = False
    Else
        Me.Visible = True
    End If
End Sub

FrmHidden:

Option Explicit
 
Private Sub Form_Activate()
    LockWindowUpdate (frmHidden.hWnd)
End Sub
 
Private Sub Form_Resize()
    frmMain.WindowState = Me.WindowState
    If Me.WindowState = vbMinimized Then
        frmMain.Visible = False
    Else
        frmMain.Visible = True
    End If
End Sub

Module:

Option Explicit
Public Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long