All pastes #730648 Raw Edit

Mr. Crack

public text v1 · immutable
·published 2007-10-09 12:28 UTC
rendered paste body
Private Sub cmdDecrease_Click(Index As Integer)
imgWeather.Height = 1000
imgWeather.Width = 1000
End Sub

Private Sub cmdIncrease_Click(Index As Integer)
imgWeather.Height = 3735
imgWeather.Width = 3735
End Sub

Private Sub cmdShowCloud_Click(Index As Integer)
imgWeather.Picture = LoadPicture("C:/Program Files/Microsoft Visual Studio/Common/Graphics/Icons/Elements/Cloud.ico")
End Sub

Private Sub cmdShowLightning_Click(Index As Integer)
imgWeather.Picture = LoadPicture("C:/Program Files/Microsoft Visual Studio/Common/Graphics/Icons/Elements/Litening.ico")
End Sub

Private Sub cmdShowRain_Click(Index As Integer)
imgWeather.Picture = LoadPicture("C:/Program Files/Microsoft Visual Studio/Common/Graphics/Icons/Elements/Rain.ico")
End Sub

Private Sub cmdShowSnow_Click(Index As Integer)
imgWeather.Picture = LoadPicture("C:/Program Files/Microsoft Visual Studio/Common/Graphics/Icons/Elements/Snow.ico")
End Sub

Private Sub cmdShowSun_Click(Index As Integer)
imgWeather.Picture = LoadPicture("C:/Program Files/Microsoft Visual Studio/Common/Graphics/Icons/Elements/Sun.ico")
End Sub

Private Sub cmdStopProgram_Click()
End
End Sub