frm_newgame.kbasic_form

f As frm_earth

Class frm_newgame Inherits Form
' ------------------------------------------------------------------------


  Sub CommandButton0_Click(m As Mouse)

    ' run form
    Dim f As New frm_earth
    f.Open()

  End Sub

  Sub CommandButton1_Click(m As Mouse)
    Close()
  End Sub

' ------------------------------------------------------------------------
End Class