Class Form1 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load MsgBox("テスト") End Sub Private Sub BreakPointTest() MsgBox("ブレークポイントテスト") 'この行にブレークポイント End Sub End Class