' ディスプレイの解像度 Dim rec As System.Drawing.Rectangle = System.Windows.Forms.Screen.PrimaryScreen.Bounds ' 保存されたフォーム座標 Dim p As System.Drawing.Point = Me.point If p.X < rec.Width AndAlso p.Y < rec.Height Then Return p End If Return New System.Drawing.Point(0, 0)