수다닷컴

비베공부1
----------------------------------------------------------------
Public Class Form1

Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

End Sub
--------------------

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Text = ~~~비베 공부하자~~
Button1.Text = 분석하고 싶다~~
Me.ForeColor = Color.Red
Me.BackColor = Color.Salmon

Timer1.Enabled = True

End Sub
--------------------------

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim iX, iY As Integer
iX = CInt(Int(1000 * Rnd()))
iY = CInt(Int(1000 * Rnd()))

Beep()
Me.Size = New Size(iX, iY)
Me.Location = New Point(200, 300)

End Sub
------------------------------

Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal , ByVal e As System.EventArgs) Handles Me.LocationChanged
Me.Text = ~~~비베 공부하자~~
Button1.Text = 분석하고 싶다~~
Me.ForeColor = Color.Red
Me.BackColor = Color.Salmon

Timer1.Enabled = True
End Sub
----------------------------

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

신청하기