Private IsFocus As Boolean '本当にアクティブか '実際の描画を行う Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint If IsFocus Then 'フレームを表示 End If End Sub Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove 'マウスが来たのでtrue IsFocus=True '強制描画命令 PictureBox1.Update() 'ここは適当なメソッドを。 End Sub Private Sub PictureBox1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave 'マウスポインタが外れたのでFalse IsFocus=False '強制描画命令 PictureBox1.Update() 'ここは適当なメソッドを。 End Sub