Publi Class Kuruma Public Sub Idou End Sub End Class
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MovablePictureBox1.idou(20) End Sub End Class Public Class MovablePictureBox Inherits PictureBox Public Sub idou(ByVal x As Integer) Me.Left -= x End Sub End Class