progressbar

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start() 'aqui vai iniciar a progressbar (carregamento)
        If ProgressBar1.Value = 100 Then 'depois que carregar até o final, se a pessoa tentar clicar novamente no button e a progressbar estiver toda carregada então
            MsgBox("Já ativado !", MsgBoxStyle.Exclamation) 'vai aparecer essa mensagem
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(2) 'usar progressbar pra decidir o tempo do carregamento
        If ProgressBar1.Value = 100 Then 'se a progressbar chegar no final então
            Timer1.Stop() ' vai parar de carregar
        End If
    End Sub
End Class