VB６．０で標準EXEです。
　　　　formをloadした時にはピクチャーボックスが現れるのですが、コマンドボタンを押すとformをpaint
        するのですが、commandボタンをクリックするとピクチャーボックスが消えてしまいます。
　　　　どうすれば良いでしょうか。Netではできるものがあるのは分かりました。

> formをloadした時にはピクチャーボックスが現れるのですが、
デザイン時に、PictureBox を Form に貼っておけば、
フォームが表示されたときに、PictureBox も表示された状態になりますね。


> コマンドボタンを押すとformをpaintするのですが、
Form の Paint イベントのことでしょうか?

CommandButton を Click しただけでは、
Form の Paint イベントは発生しないはずです。

それとも「Form に描画する処理を Click イベントに記述している」という意味でしょうか。
（PictureBox に対する描画ではなく、Form に対する描画？）

いずれにしても、Command1_Click 内で、どのようなコードが
使われているのか分からないので、『具体的な状況』が掴めません…。


> commandボタンをクリックするとピクチャーボックスが消えてしまいます。
コントロールが消えるのは、「Visible プロパティを False にした場合」

PictureBox が消えるのではなく、PictureBox に描画した内容が消えるという意味ならば、
「PictureBox の Paint イベントが処理されていない」もしくは
「AutoRedraw = True が設定されていない」などの可能性があります。

（general)
Dim k As Integer
ーーーーーーーーーーーーーーーー
Private Sub Command1_Click()
(次のページを表示）
hyouji
End Sub
ーーーーーーーーーーーーーーーー
Private Sub Command2_Click()
(前のページを表示）
hyouji
End Sub
ーーーーーーーーーーーーーーーー
Private Sub Form_Load()
（１ページ目を表示）
End Sub
ーーーーーーーーーーーーーーーー
Sub hyouji()
（何ページをだしているかラベルで表示）
If (k = 1) Then
(コマンドボタンの色設定）
ElseIf (k = 2) Or (k = 3) Or (k = 4) Or (k = 5) Or (k = 6) Or (k = 7) Then
(コマンドボタンの色設定）
  End If

If (k = 1) Then
（ピクチャーボックスに１ページ目を表示）
ElseIf (k = 2) Then
（ピクチャーボックスに２ページ目を表示）
ElseIf (k = 3) Then
（ピクチャーボックスに３ページ目を表示）
ElseIf (k = 4) Then
（ピクチャーボックスに４ページ目を表示）
ElseIf (k = 5) Then
（ピクチャーボックスに５ページ目を表示）
ElseIf (k = 6) Then
（ピクチャーボックスに６ページ目を表示）
ElseIf (k = 7) Then
（ピクチャーボックスに７ページ目を表示）
End If
End Sub
ーーーーーーーーーーーーーーーーーーーーーーー
Private Sub Form_Paint()

If (k = 1) Then
Scale (0, 0)-(100, 100)
Line (0, 0)-(100, 100), RGB(255, 255, 0), BF
ElseIf (k = 2) Or (k = 3) Or (k = 4) Or (k = 5) Or (k = 6) Or (k = 7) Then
Scale (0, 0)-(100, 100)
Line (0, 0)-(50, 100), RGB(255, 0, 0), BF
Line (50, 0)-(100, 100), RGB(0, 0, 255), BF

End If
End Sub
雑用掲示版に関連する画像を貼ります。
（）で省略されたところのコードだけで再生しても問題はありませんでした。
PictureboxのVisibleはTrueでした。

ページごとに色を変えるのが難しかったので断念しました。
魔界の仮面弁士さん。返信ありがとうございました。