15 lines
437 B
VB.net
15 lines
437 B
VB.net
Public Class CustomOpen
|
|
|
|
Public Sub New()
|
|
InitializeComponent()
|
|
Opacity = 0
|
|
FadeIn(Me, 20)
|
|
Guna2TextBox1.Select()
|
|
End Sub
|
|
|
|
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
|
If Not String.IsNullOrWhiteSpace(Guna2TextBox1.Text) Then
|
|
DialogResult = DialogResult.OK
|
|
End If
|
|
End Sub
|
|
End Class |