Form Staying Ontop Of All Apps

madaxe · September 15th, 2007, 01:54 PM

I have a simple form with one button i want this form to remain on top of all applications how do i do it can somebody show me?

Madaxe

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim MyCATIA 'As Object


        'Get CATIA or Launch it if necessary.
        On Error Resume Next
        MyCATIA = GetObject(, "CATIA.Application")

        If Err.Number <> 0 Then

            MyCATIA = CreateObject("CATIA.Application")
            MyCATIA.Visible = True

        End If

        On Error GoTo 0

    End Sub

End Class

madaxe · September 15th, 2007, 06:18 PM

OK I found this code that creates a form that stays on top how do i integrate the line topmost = true into my code

madaxe
{code}
        Dim topMostForm As New Form()
        ' Set the size of the form larger than the default size.
        topMostForm.Size = New Size(300, 300)
        ' Set the position of the top most form to center of screen.
        topMostForm.StartPosition = FormStartPosition.CenterScreen
        ' Display the form as top most form.
        topMostForm.TopMost = True
        topMostForm.Show()

[/code]