Skip to content
This repository
tree: f8ac6c5e19
Fetching contributors…

Cannot retrieve contributors at this time

file 26 lines (21 sloc) 0.886 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
Public Class WILDForm

  Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
    Close()
  End Sub

  Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
    Try

      Dim formFlashes As New Lucidity.FlashesForm(txtInterval.Text)
      formFlashes.FlashColor = colText.Color
      formFlashes.BackColor = colBackground.Color
      formFlashes.Timeout = cmbLength.Text * 1000
      formFlashes.Show()
      formFlashes.Play()

    Catch ex As Exception
            MessageBox.Show(ex.Message, "LightenedDream.WILD.Induce()", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
  End Sub

  Private Sub tmrLoad_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLoad.Tick
    tmrLoad.Enabled = False
    cmbLength.Text = 15
  End Sub
End Class
Something went wrong with that request. Please try again.