Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click Dim a As Integer = 10 Label1.RenderTransform = New RotateTransform(a) a = a + 10 End Sub