いつも勉強させてもらっています。

WinApiのLineToでピクチャーボックスに
線を描画しています。
描画した後に、ウィンドウを最小化したり、
他のウィンドウを重ねると、描画した線が
消えてしまいます。
消えないようにするのはどのようにしたら
いいのでしょうか？
よろしくお願いします。

APIで描画したことがないのでよく分かりませんが、AutoRedrawプロパティはTrueになっていますか？

> APIで描画したことがないのでよく分かりませんが、AutoRedrawプロパティはTrueになっていますか？

AutoRedrawプロパティをTrueに設定すると描画することができませんでした。
そこで最初はFalseで線を描画した後にTrueにすると線は描画されましたが、
画面の最小化などのタイミングで線は消えてしまいます。
ペン・ブラシの関係でAPIを使用しなければならず、どうにも困っています。
よろしくお願いします。

描画後　Picture1.Refresh　を実行して下さい。

Option Explicit
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
    With Picture1
        .AutoRedraw = True
        .ScaleMode = vbPixels
    End With
    LineTo Picture1.hdc, 100, 100
    Picture1.Refresh
End Sub

> 描画後　Picture1.Refresh　を実行して下さい。
>
> Option Explicit
> Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
> Private Sub Command1_Click()
>     With Picture1
>         .AutoRedraw = True
>         .ScaleMode = vbPixels
>     End With
>     LineTo Picture1.hdc, 100, 100
>     Picture1.Refresh
> End Sub

上記のように実行したところ、解決いたしました。
ありがとうございました。

参考までに

AutoRedraw = False のままで、

Paint イベントプロシージャ内に描画コードを
記述する、という方法もあります。