Private Sub Form1_Load(ByVal eventSender As System.Object,_ ByVal eventArgs As System.EventArgs) Handles MyBase.Load Dim a As Integer Dim b As Integer Randomize() 'ドラムを作る 'この場合10個の絵で１回転とする。 For a = 0 To DRUM_SIZE - 1 '①、②、③のどれにするか選択 b = Int(Rnd() * 3) '描画 'UPGRADE_ISSUE: PictureBox.Image メソッド Picture2.PaintPicture はアップグレードされませんでした。 Picture2.PaintPicture(Picture1.Image, 0, a * 32, 32, 32, b * 32, 0, 32, 32) '実際に表示されるのは３～４つなので、のりしろ部分を最後尾に '上３つ分作る(11番めから13番めの位置） If a >= 0 And a <= 2 Then 'UPGRADE_ISSUE: PictureBox.PaintPicture メソッド Picture2.PaintPicture はアップグレードされませんでした。 End If Next 'UPGRADE_ISSUE: PictureBox プロパティ Picture2.Image はアップグレードされませんでした。 Picture2.Image = Picture2.Image End Sub エラー 'PaintPicture' は 'System.Windows.Forms.PictureBox' のメンバではありません。
