Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim frm2 As New Form2
        frm2.Show()
    End Sub
 
End Class

Public Class Form2
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.TopMost = CheckBox1.Checked
    End Sub
 
 
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles CheckBox1.CheckedChanged
        Me.TopMost = CheckBox1.Checked
    End Sub
 
End Class