Form1

Code:
Friend SkyDome As New frmSkyDome()

Private Sub btnSkyDome_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSkyDome.Click
        (Some Calcs that define global variables used to update Labels)
        SkyDome.Show()
End Sub

Form2: frmSkyDome
Code:
frmSkyDome.Topmost=TRUE

Private Sub frmSkyDome_Paint(ByVal sender
...