Imports TechLifeForum

Public Class password
    Dim WithEvents irc As IrcClient

    Public Sub password_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub irc_ExceptionThrown(ex As System.Exception) Handles irc.ExceptionThrown
        MessageBox.Show(ex.Message)
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim raw As String
        raw = passtext.Text
        If passtext.Text = "" Then
            MessageBox.Show("Please Enter the Password", "Password Required", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            irc.SendRAW("nick " & raw)
        End If
    End Sub
    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

    End Sub
    Private Sub FileSystemWatcher1_Changed(sender As Object, e As IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed

    End Sub
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles passtext.TextChanged
    End Sub
End Class