Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' フォーム半透明 Me.Opacity = 0.83 ' タイトルバー消す。 Me.FormBorderStyle = FormBorderStyle.None ' フォーム最大化 Me.WindowState = FormWindowState.Maximized Using f2 As Form = New Form2() f2.ShowDialog(Me) End Using Timer1.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Close() End Sub End Class