Got It!

Randomblink

The Irreverent Reverend

Local time

Today, 13:46

Joined

Jul 23, 2001

Messages

279

• Nov 6, 2003

• #1

Got the answer...

Code:

Private Sub Command0_Click()

    Dim intIndex As Integer

    For intIndex = 0 To Forms.Count - 1
        If Forms(intIndex) Is Me Then
            MsgBox "My Index is = " & CStr(intIndex)
            Exit For
        End If
    Next intIndex

End Sub

Got it from another board...
http://www.visualbasicforum.com/showthread.php?p=542133&goto=postid

Later all

 

R

Rich

Guest

• Nov 6, 2003

• #2

 

Randomblink

The Irreverent Reverend

Local time

Today, 13:46

Joined

Jul 23, 2001

Messages

279

• Nov 6, 2003

• #3

<scratches head>

Not sure how this ended up here...
I WAS replying to my own post where I asked how to do what is done here...