Got It!

[Randomblink]

Got the answer...

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

 

[Rich]

 

[Randomblink]

<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...