9 lines
271 B
Plaintext
9 lines
271 B
Plaintext
Public Class FrmMsg
|
|
Private Sub FrmMsg_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.Button1.Focus()
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Me.Close()
|
|
End Sub
|
|
End Class |