Option Strict On 'VisualBasic2008 Public Class Form1 Private test_kakudo As Integer = 0 Private Sub G_A(ByVal g As Graphics, ByVal kakudo As Integer) g.RotateTransform(kakudo) g.DrawImage(My.Resources.houdai_kougeki, 100, 0) End Sub Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint G_A(e.Graphics, test_kakudo) End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick PictureBox1.Invalidate() test_kakudo += 1 If test_kakudo > 90 Then test_kakudo = 0 End Sub