1.消える描画 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click '消える描画 Dim g As Graphics = PictureBox1.CreateGraphics() '------------- 以下の部分は同じです ---------------------------- Dim f As New Font("MS Pゴシック", 14) g.DrawString("花ちゃん", f, Brushes.Blue, 10, 10) g.DrawLine(Pens.Black, 0, 40, 100, 40) f.Dispose() g.Dispose() End Sub 2.消えない描画 Private Sub