Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'フォームを中央に表示 Me.StartPosition = FormStartPosition.CenterScreen End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'モーダルウィンドウ(ダイアログ) Form2.ShowDialog(Me) '↑モーダルウィンドウにはなりますが、設定したホットキー(WIN+X)を押すと、何回も表示されます。