checkbox 1           <-- Select all applicable boxes
        checkbox 2
        checkbox 3
        checkbox 4
        checkbox 5
        etc.

The "<-- Select all applicable boxes" is the part that I would like
to have blink.  To do this I have tried to include this text in a
textbox and do the following Windows API calls when the textbox
has GotFocus:

            CreateCaret textbox.hWnd, 1, 1000, 150
            ShowCaret textbox.hWnd
            SetCaretBlinkTime 2000

I would like the foreground text to blink and have the
background color remain constant.  As it stands right
now the foreground text is always present(alternating
colors as the blinking takes place.  The background also
alternates between the initial lighter gray background
colors and the heavier gray that is supplied from the
caret bitmap that I supplied above with the '1' parameter.

Thanks in advance for any advice that you can supply.

        -- Mike

Des Morrow

        With a Timer object, you can play with the forecolor and
the backcolor with the label/text. For example:

Initialize Label1.ForeColor with QBColor(15)

Sub Timer1_Timer()
        if Label1.Forecolor = QBColor(15) then
                Label1.Forecolor = QBColor(0)
        Else
                Label1.Forecolor = QBColor(15)
        End if
End Sub

Add a timer control to your form with an interval, say, 500. Then
put the following code into the event routine of the timer. Maybe
not very elegant, but it works.

Sub Timer1_Timer ()
    If Label1.Caption = "" Then
        Label1.Caption = "<-- Select all applicable boxes"
    Else
        Label1.Caption = ""
    End If
End Sub

Set Timer1.Interval to 0 before you hide your form in order
to stop the timer.

Hope this helps.

----------
Haluk Okur / SIMKO A.S.       (Siemens in Turkiye)

Tel   : +90 (216) 389-5940, ext 4563                             -\<,
Fax   : +90 (216) 306-2548                                  ___(*)/(*)___

Jens
--
Everything I said are the opinions of someone else.
I just cut-and-pasted.

Jens Balchen jr.       http://www.sn.no/~balchen

I've got a program where I'll be locating the cursor and using the
print command to display text on the screen.  I've tried to make it
blink similar to how it was done in Quick basic, but that does not
work.  How should I go about doing this?

Example code:

currentx = 100
currenty = 100
forecolor = RGB(255,0,0)
Print "Hello World"

How can I selectively make this text blink or not blink?

Thanks in advance for your help,

Bryan Fout

Opinions expressed herein are my own and may not represent those of 3M.

Like:

Do While TextBlink

        picText.CurrentX = txtposX
        picText.CurrentY = txtposY

        ' For the English-speaking, replace Color with Colour
        Color = QBColor(Abs(LastColor - 15))
        LastColor = Color
        picText.ForeColor = QBColor(Color)
        picText.Print textstring$
        picText.Refresh

Loop

Jens
--
Everything I said are the opinions of someone else.
I just cut-and-pasted.

Jens Balchen jr.       http://www.sn.no/~balchen

Color = Abs(LastColor - 15)

Jens
--
Everything I said are the opinions of someone else.
I just cut-and-pasted.

Jens Balchen jr.       http://www.sn.no/~balchen

Thanks for the help!

Bryan

Opinions expressed herein are my own and may not represent those of 3M.

Well, you'd still do the same thing, that is, alternate the foreground
of your hdc to the "visible" foreground then to the "invisible" or
background color.  You'd still have to use a timer, blah, blah, blah.

George

TTFN

 _  _____  _   _

| || (_) || `\| |
| ||  _  || , ` | If they give you lined paper, write the other way!
| || | | || |`\ |
(_)(_) (_)(_) (_) http://www.sn.no/~balchen/igloo/

Jens
--
Everything I said are the opinions of someone else.
I just cut-and-pasted.

Jens Balchen jr.       http://www.sn.no/~balchen

 _  _____  _   _

| || (_) || `\| |
| ||  _  || , ` | If they give you lined paper, write the other way!
| || | | || |`\ |
(_)(_) (_)(_) (_) http://www.sn.no/~balchen/igloo/