Picture1.Printとしてもpicture1には何も表示されません

質問

Private Sub Form_Load()
Call kansu
End sub
---------------------------
Private Sub kansu()
a="文字"
Picture1.Print a
End sub
---------------------------

のように、pictureコントロールに
文字を入れる処理をする関数を呼んでいるのですが、
Formが表示されてもpicture1には何も表示されません。
Msgboxを入れておくとメッセージボックスが出るので
呼び出されてはいるようなのです。

この関数をCommand1_Click()などから呼ぶとpicture1コントロールに
ちゃんと表示されます。
どうすればよいのでしょうか？

回答No.1

TAGOSAKU7 · ベストアンサー

Private Sub kansu()
　　Dim a　 As String
　　Picture1.AutoRedraw = True
　　a = "文字"
　　Picture1.Print a
End Sub