Dim instance As Graphics = PictureBox1.CreateGraphics Dim image As Image = My.Resources.sukitarou1 Dim point As New Point(100, 100) Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick instance.DrawImage(image, point) End Sub