Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As _
     System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        e.Graphics.RotateTransform(35))
        e.Graphics.DrawImage(Grafik.Image, Grafik.Location)
    End Sub
 
    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TrackBar1.Scroll
        Me.Refresh()
    End Sub

"Hey Zuc, kennst du Steve?", "Nein ich kenne nur Zucsteve!"