PictureBox内で右寄せするには？ (ID:142775)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Option Explicit Dim ban As Integer '番号 すみませんできませんでした。PictureBoxに連続して表示したいと考えています。 Private Sub Command1_Click() ban = InputBox("番号を入力して下さい。", "番号入力", 0) Do Until ban = 9999 Picture1.Print ban ban = InputBox("番号を入力して下さい。", "番号入力", 0) Loop End Sub