Dim a As Integer = 10 Private Sub Button_Click_1(sender As Object, e As RoutedEventArgs) Label1.RenderTransform = New RotateTransform(a) a = a + 10 End Sub