Private Sub logingrabber()
        Dim rnd As New Random
        With graber
            .Server = "nimbuzz.com"
            .ConnectServer = "o.nimbuzz.com"
            .Username = spy.Text
            .Password = pswspy.Text
            .Resource = "Goodzilla_Private_Bot_" + Convert.ToString(rnd.Next(0, 10000))
            .Open()
            AddHandler .OnLogin, AddressOf login1
            AddHandler .OnAuthError, AddressOf wrong1
        End With
    End Sub