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' のメンバではありません。